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PREFACE 



This publication describes the object-time 
subroutine library used by the IEM DOS/VS 
COBOL compiler. It is intended for use by 
persons involved in library maintenance and 
by system programmers involved in altering 
the library for installations requiring 
such alteration. This publication 
supplements the subroutine listings and 
their comments, but it is not a substitute 
for them. The publication is divided into 
the following parts: 

• An introduction which describes the 
contents and the functions of the 
library and specifies the relationships 
between the library and the compiler 
and the library and the operating 
system. 

• A methods of operation section which 
describes the function of each 
subroutine in the library, the code 
used in the object program to interface 
with each subroutine, and the output 
(where applicable) of each subroutine. 
This section is divided into two main 
parts: the subroutines for object-time 
program operations; the subroutines for 
object-time debugging operations; and 
the subroutines for object-time 
execution statistics. 



• A program organization section which 
consists of diagrams and flowcharts. 
The diagrams describe the flow of 
control, loading and calling 
dependencies, and virtual storage 
layouts in instances where several 
programs are present together in 
virtual storage. Flowcharts are 
provided for most of the data 
management sunroutines, all of the 
subroutines for object-time debugging 
operations, and for other complex 
subroutines. 



A data areas section which describes 
the tables used by the subroutines for 
object-time debugging operations and 
control blocks for VSAM subroutines. 



• A diagnostic aids section which 

includes execution-time messages and 
error messages from the debugging 
subroutines, virtual storage layouts, 
information on locating^ DTF' s and data, 
and special diagnostic aids for 
debugging subroutines. 



• A glossary of special terms. 
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This edition, as amended by Technical Newsletters LN20-9183 (dated 
December 3, 1976) and LN20-9122 (dated August 1, 1975), corresponds 
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Summary of Amendments 



One new General Data Management subroutine (ILBDTABO) 
has been added. This subroutine contains a table of 
device-dependent information needed at run time. Besides 
the devices previously supported by DOS/VS COBOL, the 
table contains support for the 3330-11 and 3350 devices. 
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Effective use of this manual requires an 
extensive knowledge of the IBM Assembler 
Language, DOS/VS System Control, DOS/VS 
COBOL and the IBM DOS/VS COBOL Compiler. 
Prerequisite and related publications 
include: 

IBM DOS/VS Operating Procedures , Order 
No. GC33-5378 

IBM OS/VS and DOS/VS Assembler Language 
Guide, Order No. GC33-4010 



IBM DOS/VS COBOL Compiler Program Logic , 
Order No. LY28-6423 



The following publications provide 
detailed information on the IBM 3886 
Optical Character Reader: 



IBM 38 86 Optical Character Reader 
General Information Manual , Order 
No. GA21-9146 



IBM DOS/VS System Control Statements , 
Order No. GC33-5376 

IBM DOS/VS System Utilities , Order 
No. GC33-5381 

IBM DOS/VS Supervisor and I/O Macros , 
Order No. GC33-5373 

IBM DOS/VS Access Method Services , Order 
No. GC33-5382 

IBM DOS/VS Data Management Guide , Order 
No./ GC33-5372 

Prerequisite Program Product documents 
include: 

IBM DOS Full American National Standard 
COB OL, Order No. GC28-6394 

IBM DOS/VS COBOL compiler and Library 
P rogrammer's Guide , Order No. SC28-6478 

IBM DOS/VS COBOL Compiler and Library 
Installation Reference Material , Order 
No. SC28-6479 



IBM 38 86 Optical Character Reader Input 
Document Design and Specifications , 
Order No. GA21-9148 

DOS/VS Planning Guide for the IBM 388 6 
Optical Character Reader, Model 1 , Order 
No. GC21-5059 

The following publications provide 
information on the IBM DOS/VS Sort/Merge 
Program Product, Program Number 574 6-SM1, 
and the DOS Sort/Merge Program Product, 
Program Number 57 4 3- SMI: 

IBM DOS/VS Sort/Merge General 
Information , Order No. GC33-4030 

IBM DOS/VS Sort/Merge Installation 
Reference Material , Order No. SC33-4026 

IBM DOS Sort/Merge Programmer's Guide , 
Order No. SC33-4018 

The titles and abstracts of related 
publications are listed in IBM System/36 
and System/370 Bioliography , Order 
No. GA22-6822. 
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Summary of Amendments Number 1 

Date of Publication: March 15, 1974 
Form of Publication: Revision, LY28-6424-1 

Support of New CBL Statement Option 

New: Programming Feature 

Release 2 of the IBM DOS/VS COBOL Subroutine Library supports the object- 
time execution statistics option COUNT/NOCOUNT. 

Support of SORT-OPTION IS data-name in SD Statement 

New: Programming Feature 

Release 2 of the DOS/VS COBOL Subroutine Library supports the SORT- 
OPTION IS data-name clause. This allows the programmer more flexibility in 
handling sort files and use of ,SORT/MERGE program messages. 

ACCEPT Verb 

New: Programming Feature 

The ACCEPT verb library subroutine now translates lowercase input into the 
uppercase equivalents. 

Debug Common Area 

Maintenance: Documentation Only 

The debug common area has now been documented as a principal data area 
used by library subroutines. 



Editorial changes that have do technical significance are not noted here. 

Specific changes to the text made as of this publishing date are indicated by a vertical bar to the 
left of the text. These bars will be deleted at any subsequent republication of the page affected. 
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Summary of Amendments Number 2 

Date of Publication: December 3, 1976 

Form of Publication: TNL LN20-9 1 83 to LY28-6424- 1 

IBM DOS/VS COBOL 

Maintenance: Documentation 
• Minor technical changes and additions have been made to the text. 



• 



Editorial changes having no technical significance are not noted here. 

Specific changes to the text made as of this publishing date are indicated by a vertical bar to the left of the 
text. These bars will be deleted at any subsequent republication of the page. 
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SECTION 1: 



INTRODUCTION 



The IBM DOS/VS COBOL Library provides 
subroutines that can be link edited with 
object modules produced by the program 
product IBM DOS/VS COBOL Compiler (Program 
Number 5746-CBl). The library also 
provides subroutines that can be 
dynamically fetched during problem program 
execution. 



LIBRARY CONTENTS 



The compiler uses a number of subroutines 
to perform frequently required operations. 
Because these subroutines are too extensive 
to be efficiently placed into the object 
module whenever needed, they are stored in 
the relocatable library and included in the 
phase by the linkage editor. Exceptions to 
this are transient subroutines $$BCOBER, 
$$BC0BR1, $$BFCMUL, $$BCOBEM, and the 
SYMDMP subroutines, which are stored in the 
core image library. 

The COBOL Object- time Library contains 
subroutines to perform the following 
operations: 

• Internal data format conversion. 

• Arithmetic operations. 

• Input/Output operations. 

• Miscellaneous operations to support 
such statements as SEARCH or DISPLAY 
and specialized operations such as 
class tests or compares, 

• Internal data format conversions for 
input and output files coded in the 
American National Standard Code for 
Information Interchange. X3. 4-1968. 

• Generation of a formatted trace of the 
last procedures executed before an 
abnormal termination of a job in 
response to the specification of the 
flow trace option. The number of 
procedures to be traced is specified by 
the user. 

• Identification of the statement being 
executed at the time of an abnormal 
termination of a job in response to the 
specification of the statement number 
option. The information includes the 
name of the program containing the 
statement and the number of the 
statement and of the verb being 



executed at the time of abnormal 
termination. 

• Generation of additional execution-time 
information for debugging purposes in 
response to the specification of the 
symbolic dump option- This information 
includes symbolic formatted dumps of 
named data areas taken dynamically at 
specified points in the Procedure 
Division, and a symbolic formatted dump 
when a program terminates abnormally. 

A dump taken at abnormal termination 
consists of three parts: an abnormal 
termination message identifying the 
source statement causing the error, 
selected areas in the Task Global 
Table, and data items from the Data 
Division. Note that a dynamic dump, 
requested when a STOP RUN or GOBACK 
statement is encountered, produces, in 
effect, an "end-of-job" dump. 

• Generation of object-time execution 
statistics for debugging, testing, and 
optimization in response to the COUNT 
option. The statistics include a 
listing of the Procedure Division verbs 
with execution frequency information 
and an executable verb summary. The 
statistics are provided at normal and 
abnormal termination. 



ENVIRONMENTAL AND PHYSICAL CHARACTERISTICS 



The DOS/VS COBOL Subroutine Library is 
designed for use under the IBM DOS/VS 
Operating System with object modules 
produced by the DOS/VS COBOL Compiler. A 
DOS Release 29 is the minimum level 
required. 

The DOS/VS COBOL Subroutine Library is 
part of the DOS/VS core image and 
relocatable libraries, which must reside on 
a disk storage device. 

If the SYMDMP option is specified, the 
library subroutine called to supply the 
symbolic formatted dump requires that the 
dictionary of symbolic names and other 
information produced during compilation be 
present at execution time. This 
information is written on an additional 
work file designated as SYS005 during 
compilation. SYS005 may reside on either a 
tape or direct access device. The work 
file may be named according to the user's 
option at execution time. 
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OPERATIONAL CONSIDERATIONS 



Phases 50, 51, and Phase 60 or 64 of the 
DOS/VS COBOL Compiler generate the calls to 
the subroutines contained in the COBOL 
Object-time Library. (Note that Phase 60 
or 64 generates these calls in the 
initialization routines in the object 
module.) Parameters are passed to the 
subroutines in one of the following ways: 



• In general or floating-point registers. 

• As in-line constants (DCs) following 
the call. 



• In the WORKING CELL area of the Task 
Global Table (TGT) in the object 
module. 

The subroutines can return parameters in 
registers or in the WORKING CELL area. 



Note : References to the WORKING CELL area 
are in the form of a displacement from 
register 13 which points at execution time 
to the beginning of the Task Global Table. 
In the calling seguences in Section 2: 
"Method of Operation, " the references are 
in the form: 

WORKA (length, 13) 
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SUBROUTINES FOR OBJECT TIME PROGRAM OPERATIONS 



The subroutines described below perforin 
frequently required program operations at 
object time- These operations include 
internal data format conversions, 
arithmetic operations, input/output 
operations, miscellaneous operations to 
support such statements as SEARCH or 
DISPLAY and specialized operations such as 
class tests or compares, and certain 
operations connected with the ASCII support 
feature of the compiler. 

Flowcharts are provided in "Section 2: 
Program Organization" for some of the 
subroutines. Each chart identifier appears 
in square brackets after the name of its 
subroutine. 



display purposes (variable length, from 4 
to 20 bytes). 

STERLING REPORT ; Sterling report items are 
internal decimal for computational 
purposes. They are right justified in a 
16-byte field. 

Note : The external floating-point (EF) 
number parameter code bits are: 

Bit Meaning, if on 

1-5 Not used 

6 Mantissa PICTURE sign is negative 

7 Exponent PICTURE sign is negative 

8 EF number has a real decimal 
point 



ARITHMETIC CONVERSION SUBROUTINES 



The subroutines described below perform the 
arithmetic conversions between the eight 
numeric data formats permitted in COBOL. 
The conversions from internal decimal to 
external decimal, from external decimal to 
internal decimal, and from internal decimal 
to report are done in-line and do not 
require use of the library. 

The following conventions are used for 
the conversion subroutine parameters: 

BINARY : Single words are in register 0; 
double words are in registers and 1. 

INTERNAL DECIMAL : The number is passed in 
the first 10 bytes of the WORKING CELL area 
in the Task Global Table (TGT). It is 
right justified with high-order zeros. 

EXTERNAL DECIMAL : The number is passed in 
the first 18 bytes of the WORKING CELL area 
in the TGT. It is right justified with 
high-order zeros. 

INTERNAL FLOATING-POINT : The number is 
long form in floating-point register 0. 

EXTERNAL FLOATING-POINT : The number is 
variable in length. For input to the 
subroutine, it is pointed to by general 
register 3. For output from the 
subroutine, it is in the WORKING CELL area 
in the TGT. 

STERLING NONREPORT : Sterling nonreport 
items are either internal decimal for 
computational purposes (right justified in 
a 16-byte field) or external decimal for 



Binary to Internal Decimal (ILEDBIDO) 



Operation : Converts a double precision 
binary number into a 10-byte internal 
decimal number. The binary number must be 
in register pair 0, 1 or 2, 3 or 4, 5. 

Linkage : 

L 15,=V(entry point) 
EALR 14,15 

Note : Substitute for entry point as 
follows: 

ILBDBID0 if binary number is in register 

pair 0, 1 
ILBDBID1 if binary number is in register 

pair 2, 3 
ILBDBID2 if binary number is in register 

pair 4, 5 

Output : A 10-byte internal decimal number 
starting at WORKA(13), where 13 is the 
register pointing to the TGT. 



Binary to External Decimal (ILBDBIEO) 



Operation : converts a double precision 
binary number into an 18-byte external 
decimal number. The binary number must be 
in register pair 0, 1 or 2, 3 or 4, 5. 

Linkage : 

L 15, =V (entry point) 
EALR 14,15 
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Note ; Substitute for entry point as 
follows : 

ILBDBIEO if binary number is in register 

pair f 1 
ILBDBIE1 if binary number is in register 

pair 2, 3 
ILBDBIE2 if binary number is in register 

pair 4, 5 



Output : An 18-byte external decimal number 
starting at WORKA(13), where 13 is the 
register pointing to the TGT. 



Binary to Internal Floatingpoint 
(ILBDBIIO) 



Operation ; Converts a double precision 
binary number into a double precision 
floating-point number. 



Linkage ; 



LM 
L 

BALR 
DC 



0,l,BI-number 

15,=V(ILBDBII0) 

14,15 

XL2' Decimals in BI number' 



Output ; A double precision floating-point 
number in floating-point register 0. 



Internal and External Decimal to Internal 
Floating-Point (ILBDDCIO) 

Operation ; Converts a 16-byte internal 
decimal number or an 18-byte external 
decimal number into a double precision 
internal floating-point number. Register 
13 points to the TGT. 

Linkage ; 

For internal decimal: 

ZAP WORKA(16,13) , ID-field 

L 15,=V(ILBDDCI1) 

BALR 14,15 

DC XL2* Decimals in ID number* 

For external decimal: 

MVC WORKA(18,13),ED-field 

L 15,=V(ILBDDCI0) 

BALR 14,15 

DC XL2" Decimals in ED number* 

O utput ; A double precision internal 
floating-point number in floating-point 
register 0. 



Internal Floating-Point to Binary 
(ILBDIFBO) 



Operation ; Converts a double precision 
internal floating-point number into either 
a binary number, or into a binary number 
and an exponent to the base 10, depending 
on where the subroutine is called from. 
The internal floating-point number is put 
into floating-point register 0. If the 
internal floating-point number is too big, 
the binary number is set to the maximum. 
If the internal floating-point number is 
too small, the binary number is set to the 
minimum. No error indication is given. 

Linkage ; 

LD 0,FP-number 

or 
SDR 0,0 
LE 0,FP-number 

Followed in either case by: 

L 15,=V(ILBDIFB1) 

CNOP 6 , 8 

BALR 14,15 

DC XL8' double precision floating- 
point number' (of the form 
10**X where X is the number of 
decimals in the result field) 



Output ; A binary number in register pair 
0,1. 

Note ; If this subroutine is called by 
another subroutine, the linkage and output 
are as follows : 

If called by ILBDIFD0: 

Linkage ; 

LD 0, Internal floating-point number 

LD 2, Decimals in result 

L 15,=V(ILBDIFB0) 

BALR 14,15 

Output : A binary number in register pair 

Owl- 

If called by ILEDTEF3: 

Linkage : 

LD 0, Internal floating-point number 
LD 6, Digits in external floating- 
point mantissa 
L 15,V(ILBDIFB2) 
BALR 14,15 

Output : A binary number in register pair 
0,1, and a power-of-10 exponent in register 
2. 
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Internal Floating-Point to Internal Decimal 
(ILBDIFDO) 



Internal Decimal to Sterling Report 
(ILBDIDRO) 



Operation : Converts a double precision 
internal floating-point number into a 
10-byte internal decimal number. If the 
internal floating-point number exceeds the 
maximum permissible length, register 15 is 
set to and a normal exit is taken. 

Linkage : 

LD 0,FP-number 

or 
SDR 0,0 
LE 0,FP-number 

Followed in either case by: 



Operation : Edits a packed decimal quantity 
into a sterling report field, as defined by 
a sterling report picture in the calling 
sequence. The packed decimal quantity 
contains 31 digits, signed, and is not 
changed by the routine. The report field 
may be up to 127 bytes long. The decimal 
field, pence, is converted to pounds, 
shillings, pence, and pence decimal fields 
according to the specifications in the 
calling sequence. The pound integer field 
is edited using the edit and mark 
instruction. All other fields are edited 
directly by the subroutine. 



L 


15,=V(ILBDIFD0) 






CNOP 


6,8 




Linkage: 


BALR 


14,15 






DC 


XLS'FP-numoer* 








(of the form 10**X where 




LA 




X is the number of 




LH 




decimals in the result 




L 




field) 




LA 

L 

BALR 


Output : 


A 10-byte internal decimal : 


number 


DC 


starting 


at WORKA(13) where register 


13 


DC 


points to the TGT. 












DC 








DC 








DC 








DC 


Internal 


and External Decimal to Binary 




(tLBDIDBO) 




where: 



Operation : Converts a 10-byte internal 
decimal number or an 18-byte external 
decimal number into a double precision 
binary number. The decimal field starts at 
WORKA(13) where register 13 points to the 
TGT. 

Linkage : 

ZAP WORKA (10, 13) , ID-field 
L 15 # V(entry point) 
BALR 14,15 



Note : Substitute for entry point as 
follows: 

ILBDIDBO, if input is an internal 
decimal number 

ILBDIDB1, if input is an external 
decimal number 

Output : A double precision binary number 
in register pair 0,1. 



1, Picture address 

2, Picture length 

3, ON SIZE ERROR GN 

0, Sterling report field address 

15,=V(ILBDIDR0) 

14,15 

ALKbase code) 

AL3 (displacement of temporary 

storage field in TGT) 
AL1 (length of report field) 
ALK number of decimal digits) 
AL1 (number of pounds digits) 
XL1' Information' 



base code 

indicates a register which contains a 
pointer to the TGT or the PGT. 



Information 

is as follows: 



Bit 

1 



4-7 



Meaning 

Set on if BLANK WHEN ZERO 

Set on if shilling delimiter is 

an S; off if it is a D 
Set on if pounds delimiter is an 

S; off if it is a D 
Set on if the pounds field is not 

present 
Not used 



Output : Edited sterling report field at 
the address defined by register upon 
entry. All input fields and parameters are 
unchanged. All registers are restored, 
with the exception of register 15 (the base 
register of the routine) and register 14 
(which is changed to the address of the 
first instruction after the parameter list 
if the normal exit is taken) . 
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Internal Decimal to Sterling Nonreport 

(ILBDIDTO) 



Operation : Converts any internal decimal 
number contained in a 16-byte field into 
any sterling format specified. 



Linkage : 



L 

LA 

L 

BALR 

DC 

DC 

DC 



1,A(0N SIZE ERROR routine) 

0, Sterling field address 

15„=V( ILBDIDTO) 

14,15 

ALl(base code) 

AL3 (displacement of temporary 

storage field in TGT) 
XL2" Information' 



DC 

DC 

where: 
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AL3 (displacement of temporary 

storage field in TGT) 
XL2" Information" 



base code 

indicates a register which contains a 
pointer to the TGT or the PGT. 

Information 

is the same as that in the above 
instructions for the Internal Decimal 
to Sterling Nonreport Subroutine. 

Output : A 16-byte internal decimal number 
at the output address specified in the 
calling sequence. 



where: 



base code 

indicates the register which contains 
a pointer to the TGT or the PGT 

Information 

is as follows: 



Bit 



1 

2 
3-7 

8-12 

13-15 



Meaning 

Set to 1 if IBM shillings 

Set to 1 if 2-character pence 

representation 
Set to 1 if IBM pence 
Number of digits of pence 

decimals 
Numbers of digits of pound 

integers 
Sign indicator : 

000 No sign 

001 Sign on high-order pound 

010 Sign on low-order pound 

011 Sign on high-order 

shilling 

100 Sign on high-order pence 

101 Sign on low-order 

decimal 



Output : Converted sterling fields at the 
address specified in the calling sequence. 
On ON SIZE error, high-order pound integers 
are truncated. 



Sterling Nonreport to Internal Decimal 
(ILBDSTI0) 



All Numeric Forms to External 
Floating-Point (ILBDTEFO) 



Operation : Converts a single precision 
binary, a double precision binary, an 
internal decimal, or an internal 
floating-point number into an external 
f 1 oat ing~ point number. 

Linkage : 

For single precision binary: 



L 

L 

BALR 

DC 

DC 

DC 



DC 



0,BI-number 

15,=V(ILEDTEF0) 

14,15 

XL1* Decimals in EF mantissa* 

XL1' Total length of EF number' 

XLl'EF parameter code* 

(See note at beginning of this 

section) 
XL1" Decimals in Bl-number* 



For double precision binary: 



LM 

L 

BALR 

DC 

DC 

DC 



DC 



0,l,BI-number 

15,=V(ILBDTEF1) 

14,15 

XL1* Decimals in EF mantissa* 

XL1" Total length of EF number' 

XL1"EF parameter code' 

(See note at beginning of this 

section) 
XL1" Decimals in Bl-number* 



Operation : Converts any sterling nonreport 
field into a 16-byte internal decimal 
number. 



For internal decimal: 



Linkage : 

LA 
L 

BALR 
DC 



0, Sterling field address 

15,=V(ILBDSTI0) 

14,15 

ALKbase code) 



ZAP 

L 

DC 

DC 

DC 



DC 



WORKA (16 , 13) , ID-field 

15,=V(ILBDTEF2) 

XL1™ Decimals in EF mantissa* 

XL1" Total length of EF number' 

XLl'EF parameter code' 

(See note at beginning of this 

section) 
XL1* Decimals in ID number' 
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For internal floating-point: either 

SDR 0,0 

LE 0,FP- number 

or 
LD 0,FP-number 

Followed in either case by: 



L 

CNOP 

BALR 

DC 

DC 

DC 



DC 
DC 



15,=V(ILBDTEF3) 

2,8 

14,15 

XL1" Decimals in EF mantissa" 

XLl* Total length of EF number' 

XLl'EF parameter code* 

(See note at beginning of this 

section) 
XL1* Slack byte' 
XL8"FP-number" 

(of the form 10**X, where X is 

the number of digits in the EF 

mantissa) 



Decimal Multiplication (ILBDMXUO) 



Operation : Multiplies two 30-digit decimal 
numbers to produce a 6 0-digit decimal 
number. Input signs are expected to be C, 
F, or D. 



Linkage : 

ZAP 
ZAP 
L 



WORKA (16,13), MPLIER 
WORKA+16 (16,13) ,MPCAND 
15,=V(ILBDXMU0) 



BALR 14,15 

Output : The product, a 6 0-digit decimal 
number is placed in the 32-byte field 
following the multiplicand in the working 
cell area in the TGT. 



Output : The external floating-point result 
is in WORKA+24(L,13) where register 13 
points to the TGT. 

Calling Information : Called by compiled 
code or by the object-time SYMDMP 
subroutine (ILBDMP23). 



External Floating-Point to Internal 
Floating-Point (ILBDEFLO) 



Operation : Converts an external 
floating-point number into an internal 
floating-point number. 



Linkage : 



L 

L 

BALR 

DC 

DC 

DC 



DC 



3,=A(EF-number) 

15, =V( ILBDEFLO) 

14,15 

XL1" Decimals in EF mantissa" 

XL1* Total length of EF-number* 

XL1»EF parameter code* 

(See note at beginning of this 

section) 
XL1' Slack byte' 



Output : An internal floating-point number 
in floating point register 0. 



Decimal Division (ILBDXDIO) 



Operation : Divides a 60-digit decimal 
number by a 30-digit decimal number to 
yield a 60-digit decimal quotient. The 
dividend and divisor are both signed 
decimal numbers, right aligned in their 
fields. 



Linkage : 
MVC 

XC 

ZAP 



WORKA (32,13), Dividend 

(if dividend is 32 bytes) 

or 

WORKA(16,13) ,WORKA(13) 

(if dividend is 16 bytes or 
less) 

WORKA+16 (16,13) , Dividend 



Followed in either case by: 

ZAP WORKA+48 (16,13) , Divisor 
L 15,=V(ILEDXDI0) 
BALR 14,15 

Output : The quotient, a 60-digit decimal 
number, is in the 32-byte field following 
the divisor in the working cell area in the 
TGT. The sign is determined by the rules 
of algebra from the dividend and the 
divisor signs. No remainder is returned. 



ARITHMETIC VERB SUBROUTINES 



The five subroutines described below 
perform involved calculations, such as 
exponentiation, or calculations involving 
larger numbers. Arithmetic operations not 
in these categories are performed in-line 
and do not require use of the library. 



Decimal Fixed-Point Exponentiation 
(ILBDXPRO) 



Operation : Exponentiates any 30-digit 
packed decimal base to a binary exponent. 
This subroutine calls packed decimal 
multiplication and division routines. 
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Linkage : 

ZAP 

L 

L 

BALR 

DC 

DC 



WORKA(16,13) ,BASE(L) 
0, EXPONENT 
15, =V(ILBDXPR0) 
14,15 

XLl'Decimal places in base* 
XL2* Decimal places required in 
result' 



Output : A 16-byte packed decimal number at 
the beginning of the working cell area in 
the TGT. 



Output : The result is in floating-point 
register . To avoid imaginary numbers 
(involving the square root of -1), the 
base is always treated as a positive 
number, and the result will always be 
positive. Any condition which would cause 
exponent overflow results in an answer 
equal to the largest floating-point number, 
Any condition which would cause exponent 
underflow results in an answer equal to 0. 



DATA MANIPULATION SUBROUTINES 



Floating-Point Exponentiation to an Integer 
Exponent (ILBDGPWO) 



The subroutines described below 
manipulate data both in virtual storage and 
on files. They also perform some editing 
and initializing functions. 



• 



* 



Operation ; Exponentiates a double 
precision floating-point number to a binary 
exponent. 



SORT (ILBDSRTO) And MERGE (ILBDSRTQ And 
ILBDMRGO) [CA] 



Linkaqe: 




LD 


0,BASE 




or 


SDR 


0,0 


LE 


0,BASE 



Followed in either case by: 

0, EXPONENT 

(EXPONENT was converted to 
binary, if necessary) 

L 15,=V(ILBDGPW0) 
BALR 14,15 

Output : The result is in floating-point 
register 0. 



F loati ng- Point Expon e ntiation to a 
Noninteger Exponent (ILBDFFWO) 



Operation : Exponentiates a long-form 
floating-point base to a floating-point 
exponent. 

L inkag e: 

LD 0,BASE 

or 
SDR 0,0 
LE 0,BASE 

Followed in either case by: 



MVC 



L 



WORKA+8(8 f 13) , EXPONENT 

(EXPONENT was converted into 
long-form floating-point, 
if necessary) 

15,=V(ILBDFPW0) 



BALR 14,15 



Sort Operation : ILBDSRTO acts as an 
interface between the COBOL generated 
object program and the Program Product 
Sort/Merge program. It links to the 
Sort/Merge program, using parameters from 
the COBOL object program. If INPUT 
PROCEDURE or OUTPUT PROCEDURE has been 
specified, ILBDSRTO branches at exits from 
the Sort/Merge program to the sequence of 
instructions specified in the COBOL object 
program. 

If, instead of the INPUT PROCEDURE, the 
USING option of the COBOL SORT statement 
has been specified, at the exit from the 
SORT/MERGE program the subroutine branches 
to the compiler-generated code to open the 
USING file(s). If more than one file is 
specified in the USING statement, they are 
all opened at once. The subroutine then 
reads every record from the first file 
until end-of-file, closes it and then reads 
all the records from the next file until 
end-of-file, closes it, and so on. 

If, instead of the OUTPUT PROCEDURE, the 
GIVING option of the COBOL SORT statement 
has been specified, at the exit from the 
SORT/MERGE program the subroutine branches 
to the compiler-generated code to open the 
GIVING file- The subroutine then writes 
every record onto the GIVING file and 
closes it when the operations with it are 
complete. Finally, the subroutine returns 
control to the COBOL object program when 
the sort operation is complete. 

Sort Flow of Control : Diagram 1 (see 
"Program Organization" Section) describes 
the logical flow among the three programs 
which are active during execution of a 
COBOL SORT statement. The statement has 
specified both INPUT PROCEDURE and OUTPUT 
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PROCEDURE; but checkpoint records are not 
to be taken- 

The COBOL object program sets up the 
parameter list, and branches to ILBDSRTO. 
This parameter list consists of 10 address 
constants pointing to the card images 
describing the parameters for the 
Sort/Merge program (see Figure 1, items 1 
through 6),. The parameter list also 
contains the addresses of the three branch 
tables and SORT-RET cell in the TGT (see 
Figure 1, items 7 through 10). After 
initialization the subroutine links to the 
Sort/Merge program. When phase 1 of the 
Sort/Merge program reaches exit El 5, it 
returns to the subroutine. The first time 
this path is followed, ILBDSRTO branches to 
the routine in the COBOL object program 
which initializes the PERFORM statement of 
the input procedure specified. Control is 
then passed to that procedure. 

When the RELEASE statement is 
encountered in the input procedure, control 
returns to the subroutine. The subroutine 
then establishes the linkage back to the 
statement after the E15 exit instruction of 
the Sort/Merge program. The Sort/Merge 
program then loops through its phase 1 
operation until it is ready to receive 
another record. It then passes control to 
ILBDSRTO, which in turn passes control to 
the statement in the input procedure 
immediately following the RELEASE 
statement. 

This same flow of control through the 
Sort/Merge program, ILBDSRTO, and the COBOL 
input procedure continues until the input 
procedure has released the last record. 
Then control passes to the end of the 
procedure, and by means of the subroutine, 
to phase 2 of the Sort/Merge program. 

The interaction among the three programs 
during the output procedure is essentially 
the same as during the input procedure. 
Phase 3 of the Sort/Merge program returns 
to the subroutine at exit E35 whenever it 
is prepared to return a sorted record. 
Linkage between the subroutine and the 
output procedure is similar to that between 
the subroutine and the input procedure. 
After the last record has been returned by 
the Sort/Merge program, control returns 
through ILBDSRTO to the COBCL object 
program at the instruction immediately 
following the one which originally branched 
to the subroutine. 



Merg e Operation : ILBDSRTO and ILBDMRGO act 
as the interface between the COBOL object 
program and the Sort/Merge Program (Program 
Number 5746-SM1) . 

ILBDSRTO performs the following functions: 



• Calls ILBDMRGO for initialization 

• Links to the Sort/Merge program using 
parameters from the COBOL object 
program. 

• At exit E32 from the Sort/Merge program 
branches to ILBDMRGO. 

• When a merged sequence is determined, 
branches at exit E35 from the 
Sort/Merge program to the COBOL object 
program OUTPUT PROCEDURE or to the code 
for the GIVING option which is the same 
as for the SORT statement. 

ILBDMRGO performs the following functions: 

• At initialization saves the following 
information 

SD buffer address 

Address of the open USING files 
routine in the COBOL object program 

Number of input files 

Recording mode of SD 

Address of error exit for VSAM 
files 

• At exit E32 from the Sort/Merge program 

Branches to the compiler-generated 
code to open all the USING files 

Reads each record from the input 
files requested by the Sort/Merge 
program 

Passes the record to the Sort/Merge 
program for merging with a record 
from other files 

Performs a CLOSE operation on a 
file on which an end-of-file 
occurred 

Merge Flow of Control : The flow of control 
for MERGE processing is shown in Diagram 2 
in "Section 2: Program Organization." 
This diagram describes the logical flow 
among the four programs which are active 
resident in storage during execution of the 
COBOL MERGE statement. 

The COBOL object program sets up the 
parameter list and branches to ILBDSRTO. 
This parameter list consists of ten address 
constants pointing to the card images 
describing the parameters for the 
Sort/Merge program (see Figure 2). Items 1 
through 6 are set up by the COBOL compiler. 
ILBDSRTO sets up the rest of the list, then 
links to ILBDMRGO for initialization. On 
return from ILBDMRGO, ILBDSRTO links to 



• 



• 
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theSort/Merge program. When phase 3 of the 
Sort/Merge program reaches exit E32, it 
returns to ILBDSRTO which then branches to 
ILBDMRGO. 

The first time this path is followed, 
ILBDMRGO branches to the COBOL object 
program which opens all the input files and 
passes control back to ILBDMRGO with 
pointers to opened files, DTFs, and BLs in 
WORKING CELLS of the TGT. ILBDMRGO then 
reads a record from the input file 
requested by the Sort/Merge program, and 
establishes the linkage back to the 
statement after the E32 exit instruction of 
the Sort/Merge program. 

The Sort/Merge program loops through 
exit E32 until a merged sequence is 
established. It then returns to ILBDSRTO 
at exit E35. Linkage between ILBDSRTO and 
the OUTPUT PROCEDURE is the same as that 
for the SORT statement. (If GIVING is 
specified, ILBDSRTO writes a record onto an 
output file.) 

This flow of control through the 
Sort/Merge program, ILBDSRTO and ILBDMRGO 



at exit E32, and ILBDSRTO at exit E35 
continues until ILBDMRGO has released the 
last record to the Sort/Merge program and 
after the last merged record has been 
returned by the Sort/Merge program. 
Control is passed from ILBDSRTO to the 
COBOL object program at the instruction 
immediately following the one that 
originally branches to the subroutine. 

Parameters Passed to the Sort/Merge 
Program : ILBDSRTO passes in register 1 a 
pointer to a ten-word parameter list (see 
Figure 1 for the SORT statement). The ten 
parameters contain addresses of the control 
areas that exist in virtual storage during 
execution of the SORT statement. The first 
six control areas are generated as EBCDIC 
literals by phase 51 of the COBOL compiler. 
They correspond to the control cards that 
are needed by the Sort/Merge program to 
define the specific sort operation. The 
next three control areas are tables of 
branch addresses that are located in 
ILBDSRTO. The final control area is a 
location SORT-RET in the TGT into which a 
return code is placed by the Sort/Merge 
program. 
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Figure 1. Parameter List Passed by ILBDSRTO for SORT 



Explanation of Parameter Lists ; 

(T) SORT or MERGE Control Statement ; 



The FIELDS parameter describes the 
SORT or MERGE keys of which a 
maximum of 12 may be 
specified. For each key there 
are four parameters. 



p n =the position within the 

record, of the high order 
byte of the control data 
field 



l n =the length in bytes of the 
control data field 

f n =the format of the data in 
each of the control data 
fields, for example, ZD 
(zoned decimal), CSL 
(leading separate 
character for ASCII) 

s n =the seguence into which the 
control data field will be 
sorted, that is, A 
(ascending), D 
(descending) 
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Figure 2. Parameter List by ILBDSRTO for MERGE 



The WORK parameter specifies the (2) 
number of devices available 
for tape intermediate storage 
or the number of extents 
available for disk 
intermediate storage. For 
tape devices, the range of 
acceptable values is 3 through 
9. For direct-access devices, 
the range of acceptable values 
is 1 through 8. If no value 
is specified, default values 
of 1 and 3 will be assigned 
for disk and tape, 
respectively. 

The FILES parameter specifies the 
number of input files that are 
to be merged. If _^ 

SORT-FILE-SIZE is specified, QT) 
the SIZE= parameter is added 
for SORT only. 



RECORD Control Statement ; 

The TYPE parameter is used to 

differentiate between F (fixed 
length) and V (variable 
length) records. 

The LENGTH parameter for 

fixed-length records specifies 
the number of bytes (1) of one 
logical record in the input 
file. For variable length 
records the LENGTH parameter 
specifies the maximum (lj.) 
number of bytes in a single 
input record. If 
SORT-MODE-SIZE exists, 1 is 
also specified. 

INPFIL Control Statement : 

The EXIT parameter indicates to 
the Sort/Merge program that 
all input records are supplied 
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at exit E15 and that a routine 
at that exit reads the input 
file and passes the records 
one at a time to the 
Sort/Merge program. 

OUTFIL Control Statement : 

The EXIT parameter specifies to 
the Sort/Merge program that a 
routine at exit E35 will 
process each record after it 
has been sorted and that a 
routine at that exit writes 
the output file. This routine 
is the output procedure that 
has been specified or created. 

OPTIONS Control Statement : 

The LABEL parameter indicates the 
type of label on the work 
files. It may be U 
(unlabeled) or S (standard). 
All work files must have the 
same type of label. (Not used 
for MERGE.) If SORT-CORE-SIZE 
exists, the STORAGE= parameter 
is added. 

If SORT-OPTION is specified 
in the SD statement, the 
address of the data-name is 
passed to subroutine ILBDSRTO. 
The value contained in the 
data-name field may have the 
following format: 



OPTION 



PRINT 

PRINT=NONE 
PRINT=ALL 
PRINT=CRITICAL 



[,LABEL=(, ,WOrk) ] 



, STORAGE= 



n 

nK 

(n,VIRT) 

(nK,VIRT)' 



Note : 



[ r ALTWK] [, ERASE] 



,ROUTE=LST~| 
,ROUTE=LOGj 



, SORTWK=work 

, SORTWK= ( worki , wor k m ) 

At least one blank must 



follow the last operand. 
Figure 3 summarizes the 



SORT-OPTION operands and their 
defaults. The word OPTION 
must start in column 1. 



PRINT Option 



PRINT 

PRINT=NONE 

PRINT=ALL 



PRINT=CRITICAL 



PRINT and PRINT=ALL specify 
that all messages are to be 
printed by the Sort/Merge 
program. This includes error 
and end-of-job messages, 
control card information, 
various size calculations, and 
other informative messages. 

PRINT=NCNE specifies that 
no messages are to be printed. 
It is useful if you have no 
alternate message device and 
do not want messages listed 
with other printed output. A 
message device need not be 
assigned. 

PRINT=CRITICAL specifies 
that only messages resulting 
from conditions that can cause 
program termination are to be 
printed. For more details on 
these conditions and messages, 
refer to IBM DOS/VS Sort/Merge 
Programmer's Guide , Order 
No. SC33-4028. 



Note : PRINT=ALL is assumed 
until the SORT-OPTION 
statement is read. Therefore, 
if PRINT=NONE or 
PRINT=CRITICAL are to be used, 
these options must precede all 
others in the SORT-OPTION 
statement. 

LABEL Option 

[LABEL=(,,work)] 

This operand specifies the 
type of labels associated with 
the work files. The parameter 
represented by work is either 
S (standard labels) or U 
(unlabeled). This operand is 
required if the SORT-OPTION 
statement is specified and 
unlabeled work files are used. 
If it is omitted, standard 
labels are assumed for all 
files. 
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Statement 



| Operands 



Comments 



OPTION 



j PRINT= {ALL/NONE/CRITICAL} or PRINT 

j. 

j STORAGE=n/(n,VIRT)/(nK, ) 

j. 



Default=ALL 



| LABEL=(, ,work) 
h 

| ALTWK 



ERASE 



h 

| ROUTE={LST/LOG} 



|. 

j SORTWK= {work/ ( work^ , work m ) > 



Default: 



see discussion. 



| Def ault=standard labels. 



Default: PhO message on 
printer and console and 
Phl-3 on console. 



] Default=(l,2,. . .m) 



Figure 3. Summary of SORT-OPTION Operands 



Note ; When standard labels 
are used, the Sort/Merge 
program uses the DOS/VS system 
facilities to process these 
labels. Unlabeled tape files 
are processed by the 
Sort/Merge program. No user 
programming is required. 



STORAGE Option 



, STORAGE= 



n 

nK 

(nK.VIRT) 

(nK,VIRT) 



This option is required to 
specify to the Sort/Merge 
program how much storage to 
use and whether it can fix 
pages. 

n specifies a decimal 
number of bytes of storage to 
be made available to the 
Sort/Merge program (together 
with its user routines). nK 
specifies the decimal number 
of K (1024 bytes) of storage 
available. 

The default is the value of 
the SIZE parameter on the EXEC 
job control statement. If 
both SIZE and STORAGE are 
specified, the lower value is 
taken. If neither is 
specified, the default is the 
partition size of the required 
size calculated by the 
Sort/Merge program (but at 
least 64K), which ever is 
smaller. The Sort/Merge 
program terminates if n is 
less than 16K bytes. If n is 



greater than the partition 
size, it is ignored. 

If the Sort/Merge program 
is invoked from another 
program, the defaults are 
calculated in a similar way, 
but the value of the SIZE 
parameter and the partition 
size are adjusted downwards by 
the difference between the 
address of the Sort/Merge load 
point and the- starting address 
of the partition. 

If VIRT is specified, the 
Sort/Merge program does not 
try to fix pages when running 
in virtual mode. You may need 
to specify VIRT to prevent 
interference with other jobs 
running simultaneously, or to 
allow a user-written routine 
to fix pages. VIRT should be 
avoided whenever possible, 
since it has an unfavorable 
effect on Sort/Merge 
performance. It is ignored 
when the Sort/Merge program is 
running in real mode. The 
value in SORT-CORE-SIZE is 
ignored if the SORT-OPTION 
clause is specified. 

ALTWK Option 

ALTWK specifies an 
alternate work drive (tape 
only) in a sorting job. This 
doubles the maximum input file 
size allowed. The address of 
the alternate device must be 
different from the address of 
all other devices used in the 
job. Figure 3 shows the file 
name and default symbolic unit 
name. 
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ERASE Option 

ERASE specifies that work 
data sets used during a sort 
are to be erased at the end of 
the job. It is ignored if 
2400-series tapes are used for 
work areas. If the sort 
terminates abnormally, 

• ERASE is performed unless 
the checkpoint facility 
has been specified; 

• if ERASE is performed, and 
if a workfile has been 
pooled with output, the 
output file is also 
erased. 

Note that the Sort/Merge 
program does not close work 
data sets, even when 
terminating normally. 

ROUTE Option 



,ROUTE=LST 
,ROUTE=LOG 



LST specifies that messages 
are to be routed to the SYSLST 
file by the Sort/Merge 
program. Messages requiring 
operator intervention are also 
printed on SYSLCG if allocated 
to a DOS/VS supported console 
device. 

LOG specifies that messages 
are to be routed to the 
controls. 



Note : The default is assumed 
until the ROUTE option has 
been read. 



SORTWK Option 

r,SORTWK=work 1 

|_,SORTWK=(work ± , work m ) J 

This operand specifies the 
logical unit numbers 
associated with the work 
files. The parameters within 
parentheses must be replaced 
by symbolic unit numbers of a 
maximum of three significant 
digits from 1 to 221, or a 
comma. When a comma is coded, 
or if the operand is omitted, 
the Sort/Merge program uses 
the default assignment. 
Figure 4 summarizes the file 
names and default symbolic 
unit names. 



r t — 'T T 

I Use of Device | Filename | Symbolic Unit Name| 
j. + + .J 

| work ISCRTWK1 |SYS001 j 



I | . | . | 

| |S0RTWK9 |SYS(M) j 

j. + + ., 

jALTWK |SORTALT |SYS(M+1) | 

J. X X -, 

|M=the number of work files, as specified | 
j in the SELECT statement for the SD file. | 
L j 

Figure 4. Sort/Merge File Name and 

Default Symbolic Unit Names 

(b\ MODS Control Statement : 

This statement specifies the exits 
used to branch out of the 
Sort/Merge program to the 
subroutine. The PHn entry 
specifies the phase in which the 
exit occurs. The E nn entry 
specifies the number of the exit 
used in branching to the 
subroutine. When RERUN has been 
specified in the COBOL source 
program (that is, when checkpoint 
records have been requested) , the 
format generated is indicated by 
(b) in Figure 1. Otherwise, the 
format indicated by (a) in Figure 
1 is used. 

(a) This statement indicates 
to the Sort/Merge program that 
exit E15 is to be used in phase 1; 
no modification is to be made to 
phase 2; and exit E3 5 is to be 
used in phase 3. 

(b) This statement indicates 
to the Sort/Merge program that 
exits Ell and E15 are to be taken 
in phase 1; exit E21 is to be used 
in phase 2; and exits E31 and E35 
are to be used in phase 3. 

(c) This statement indicates 
to the Sort/Merge Program that no 
modifications are to be made to 
Phases 1 and 2, and that Exits E32 
and E35 are to be used in Phase 3. 



© 



PHI (Phase 1 Branch Table) : 

This branch table consists of 
branch instructions that the 
Sort/Merge program uses when a 
phase 1 exit is requested on the 
MODS control statement. It is not 
used for MERGE. The three branch 
tables are assembled in the SORT 
subroutine according to the form 
shown in Figure 1. To pass 
control to a routine at a 
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particular exit, the Sort/Merge 
program uses the branch table and 
a fixed displacement associated 
with each program exit and then 
branches to the routine indicated.. 



For example, when the 
Sort/Merge program goes to the E15 
exit, it loads register 15 with 
the address of the beginning of 
the table and issues a BAL 
14,4(15) instruction. The 
Sort/Merge program passes in 
register 1 the address of a 
parameter list containing pointers 
to any records, checkpoint lists, 
etc. , applicable to that exit. 



PH2 (Phase 2 Branch Table): 



This branch table is used to pass 
control to the Checkpoint 
subroutine (ILBDCKPO) during Phase 
2 of the Sort/Merge program, if 
the E21 exit is specified (see 
Figure 1, item 6b) . It is not 
used for MERGE. 



PH3 (Phase 3 Branch Table) ; 

This branch table is used to 
return a sorted record to 
ILBDSRTO. It is also used to pass 
control to the Checkpoint 
subroutine, if the E31 exit is 
specified. 



Return Code : 

The Sort/Merge program stores a 
return code of or 16 indicating 
the success or failure, 
respectively, of the sort 
procedure. The user can test the 
return code by referring to the 
reserved word SORT-RETURN. 



PH3 (Phase 3 Branch Table ) 

This branch table is used to 
branch to ILBDMRGO to get a record 
from one of the input files to be 
merged or to return a merged 
record to ILBDSRTO from the 
Sort/Merge Program. 



Linkage to ILBDSRTO for SORT or MERGE: 



MVC 

MVC 

LA 

LR 

LA 

LA 

LA 

LA 



LA 



LNR 



SR 

STM 

LA 

LA 

LA 

LA 

STM 

LH 

STH 

L 

BALR 



PARAM CELLS, literal-1 for SORT FIELDS 
PARAM CELLS, literal- 2 for RECORD TYPE 
0, PARAM CELLS for SORT FIELDS 
1.0 

1, PARAM CELLS for RECORD TYPE 
2, INPFIL 
3,OUTFIL 

4, OPTIONS (SORT without SORT-OPTION 
specified in SD) 



4, SORT-OPTION data-name 



4,4 



(SORT with 
SORT-OPTION 
data-name 
specified in 

SD) 



or 



4,4 (MERGE) 

0,4,WORKCELLS 

, MODS 

1, INPUT PROCEDURE 

2, Input buffer 

3, OUTPUT PROCEDURE 

0,3,WORKCELLS+16 

4, "number of USING files 



4,WORKCELLS+38 

15,=V(ILBDSRT0) 

14,15 



SORT only 



The code generated to open USING files 
for MERGE and SORT and pass back DTF and BL 
addresses to ILBDMRGO and ILBDSRTO is as 
follows : 



GN1 EQU * 

ST 14,XSA return address to 

ILBDSRTO or ILBDMRGO 



The OPEN code for multiple file-names is as 
follows: 



L 
L 

STM 

L 

L 

STM 

MVI 



1,DTF#2 Open coding for 

2,BL#2 multiple file-names 

1,2, WORKING CELLS#1 

1,DTF#3 

2,BL#3 

1,2, WORKING CELLS#9 

WORKING CELLS#9,X , 80 f 



generated 
only if 
VSAM file 



GN2 



L 

BC 

EQU 



14,XSA 

15,14 

* 
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Before control is passed to ILBDSRTO, 
addressability is set up for the parameters 
that are needed in the Sort/Merge program 
and for the input and output procedures 
that have been specified. 

Output : If the GIVING option is employed, 
the output is the sorted or merged file; if 
not, the output is sorted records passed 
singly. 

Linkage to ILBDMRGO from ILBDSRTO : 



Linkage : 





Note: 


At initialization the code is: 






For 


L 1,A(SDEUFFER) 




L 2,A(USING GN) 


DC 


LH 3,'NUM OF USING FILES' 


DC 


LA 4,1 If SD recording 




mode is V or S 




or 


DC 


SR 4,4 If SD recording 


DC 


mode is F 




L 15, =V( ILBDMRGO) 


DC 


L 5,A(ERR0REXIT) 




BAL 14,4(15) 





At exit E32 from the Sort/Merge program the 
code is: 

L 15, =V( ILBDMRGO) 
BR 15 

Output : The record is passed to the 
Sort/Merge program for merging. 



Dummy SORT (ILBDDUMO) 



Cper, tion : This subroutine is a 2-byte 
dummy subroutine which is loaded after the 
object module. If the SYMDMF option is not 
specified, the load point of ILBDDUMO is 
used as the load point for the DOS/VS 
Operating System SORT Program. If the 
SYMDMP option is specified, the load point 
of the SORT program is determined by adding 
the length of the allocated SYMDMP modules 
and tables to the load point of ILBDDUMO. 

Linkage : None. 

Output : None. 

Move (ILBDVMOO) 



Operation : Used when one or both operands 
are variable in length or exceed 4096 bytes 
in length and the MVCL instruction cannot 
be used because the operands overlap. The 
variable-length operand may exceed 256 
bytes. The subroutine has two entry 
points, depending upon whether the move is 
left justified or right justified. 



L 15, =V( ILBDVMOO) (left- justified) 

or 
L 15,=V(ILBDVM01) (right- justified) 
BALR 1,15 
DC XL10* Operand- A Information* 

(See Note) 
DC XLlO'Operand-B Information" 

(See Note) 



Note : Substitute one of the following: 



a variable-length operand: 

XLl'Type code* 

AL3 (displacement of the variable- 
length cell in the TGT from the 
base register code) 

ALKbase register code) 

AL3 (displacement of base locator 
from the above base register) 

XL2* Displacement of item from 
BL address' 



For a fixed-length operand: 

DC XLl'Type code' 

DC XL3* Length of operand' 

DC ALKbase code) 

DC AL3 (displacement of item from 

above base) 
DC XL2" Displacement of item from 

BL address' 

The Type codes are: 

Bit Meaning, if on 

Figurative constant 

1 Not used 

2 Variable length 

3 Direct pointer to the Program 

Global Table (for a literal) 
4-7 Not used 



Output : None. 



Moving Characters (ILBDMOV0) [CB] 



Operation : This subroutine executes an MVC 
instruction of any length. 



Linkage : 



L 
L 
L 
L 
BALR 14,15 



3, LENGTH 

5, A (Receiving field) 

2,A(Sending field) 

15,=V(ILBDMOV0) 



Output : The MVC is executed if the length 
is positive. 
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Transform (ILBDVTRO) 



MOVE to Right-Justified Field for 
System/370 (ILBDSMVO) 



Operation : This subroutine translates a 
field (operand) of variable length or of a 
length greater than 256 bytes- It uses the 
translate table, ILBDTRNO, which it moves 
to a work area and then modifies according 
to the needed transformation. 



Linkage ; 

L 

L 

BALR 

DC 

DC 

DC 

DC 



DC 



2, =A (ILBDTRNO) 

15, =V( ILBDVTRO) 

1,15 

XLl'Type code' (see Note) 

XL3* Length of item' 

ALKbase code) 

AL3 (displacement of pointer in 

TGT or displacement of literal 

text) 
XL2" Displacement from BL' 



Operation : This subroutine moves 
characters into a right- justified receiving 
field when the user has specified IBM-370 
in the OBJECT-CCMPUTER paragraph and the 
receiving field is either greater than 512 
bytes in length or variable in length. 



Linkage : 



LA 
LH 
LA 
LH 



0, Receiving field 

l,Length of receiving field 

2, Sending field 

3, Length of sending field 

15,=V(ILEDSMV0) 



BALR 14,15 



Output : The characters are transferred to 
a right- justified receiving field. 



Note : The Type code bits are: 

Bit Meaning, if on 

0-1 Not used 

2 Variable-length item 

3 Direct pointer (for example, a 

pointer for a literal or TALLY) 
4-7 Not used 



Calling Information : 
code. 



Called by compiled 



Alphanumeric Edit (ILBDANEO) 



Output : The data field is transformed as 
requested. 



Operation : This subroutine moves a 
data-name, literal, or figurative constant 
into a right- or left-adjusted alphanumeric 
edited field. Each group of X's in the 
PICTURE is treated as an individual field. 



MOVE Figurative Constant (IIBDANFO) 



Operation : This subroutine moves a 
figurative constant of more than one 
character into a nonnumeric receiving 
field. The result may be right or left 
justified. 



Linkage : 



L 

LA 

LA 

L 

BALR 

DC 



DC 



0, Length of receiving field 

1, Receiving field 

2, Figurative constant 

15,=V(ILBDANF0) 

14,15 

X' 00' (Flag byte: Bit = 1 if 

the receiving field is 

right adjusted) 
X* 00' (Length of figurative 

constant) 



Linkage : 

L 0, Length of sending field 

LA 1, Sending field 

LA 2, Receiving field 

LA 3, Edit mask (see Note 1) 

L 15,=V(ILEDANE0) 

BALR 14,15 

DC X* 00' (Flag byte; see 

Note 2) 

DC X*00'(Mask length) 

DC X" 0000* (Receiving length) 

Note 1 : Edit mask is an encoded form of 
the COBOL alphanumeric edit picture. 

Note 2 : 

Bit Meaning, if on 

Right-adjusted receiving field 

1 Sending field is a figurative 

constant 
2-7 Not used 



Outp ut : The receiving field is filled with Output : 
the figurative constant. move. 



The completed alphanumeric edited 
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SEARCH (ILBDSCHO) 



Operation : This subroutine searches a 
table using a binary search technique and 
returns the address of a desired table 
entry to the calling routine. From one to 
twelve keys may be specified, all of which 
must be satisfied for a successful search. 
The table must have been presorted on all 
keys, and all entries must be of the same 
length. If the search is unsuccessful, 
control is returned to the AT END address 
specified by the caller. The subroutine is 
called by code generated from processing a 
SEARCH ALL statement. 



Linkage: 




LA 


0, Search argument 


LA 


1, Table descriptor (See 




Note 1) 


CNOP 


2,4 


L 


15, =V( ILBDSCHO) 


BALR 


14.15 


DC 


x"nn" (See Note 2) 


DC 


X'nn" (Length of first key) 


DC 


X'nnnn' (Of f set of first key 




from the beginning of table 




entry) 


. 


(Same 4 bytes 


. 


of information 


. 


for each key) 



Note 1 : The table descriptor is a 16-byte 
area starting at TEMP STORAGE- 4 in the TGT 
and is in the following format: 



Byte 


Meaning 


.0-3 


Table address 


4-7 


Maximum number of occurrences 


8-11 


AT END address 


12 


Number of keys 


13 


Not used 


14-15 


Length of a table entry 



The search argument is in a location 
starting at TEMP STORAGE- 2 in the TGT. 

Note 2 : The type of key is as follows: 

Bit Meaning 

l=ascending; 0=descending 

1 Binary 

2 Packed decimal 

3 Zoned decimal 

4 Alphanumeric 

5-7 Not used (all bits 0) 

Output : If the desired entry is found, its 
address is returned in register 0, and 
control is returned to the instruction 
appearing after the in-line key 
descriptions. If the entry is not found, 
control is returned to the AT END address. 

The instructions following the key 
entries cause the index-name associated 



with the level of the table being searched 
to be set to the displacement of the found 
entry. 



Segmentation (ILBDSEMO) [CC] 



Operation : This subroutine performs the 
loading and initializing for the 
segmentation feature of the compiler. If 
the GO TO statement has a VN as its 
operand, this subroutine will do one of the 
following: 

1. Load and initialize, if the segment of 
destination is independent and not in 
virtual storage. 

2. Load only, if the segment of 
destination is overlayable and not in 
virtual storage. 

3. Initialize only* if the segment of 
destination is in virtual storage, 
independent, and not the same as the 
origin of branch. 

4. Branch to the desired entry point, if 
the segment of destination is in the 
root segment. 

5. Branch to subroutine ILBDDBGO if the 
SYMDMP option is in effect. 

If the GO TO has a PN as operand, the 
subroutine will load a segment if it is not 
in virtual storage. 

ILBDSEM1 is an alternate entry point to 
the subroutine. If the subroutine is 
entered at ILBDSEMl, the Procedure Block 
for the PN is loaded into register 11, and 
the priority and PN address are calculated 
and loaded into register to simulate the 
linkage to ILBDSEMO; then operation is the 
same as for entry point ILBDSEMO. 

Linkage : 

For programs for which the optimization 
option (OPT) has not been specified: 

If GO TO with VN as operand: 

L 15,=V(ILBDSEM0) 

L 0,VN# 

BALR 14,15 

DC X'PTY' 

DC X'OO* 

IF GO TO with PN as operand: 



L 


15, =V( ILBDSEMO) 


L 


0,PN# 


LCR 


0,0 


BALR 


14,15 
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For programs for which the optimization 
option (OPT) has been specified: 

If GO TO with VN as operand: 

L 15,=V(ILBDSEM0) 

L 0,VN# 

BALR 14,15 

DC X'PTY* 

DC X"00' 



If GO TO with PN as operand: 



L 15, =V( ILBDSEMl) 
BALR 14,15 
DC X 1 ' Priority" 
DC X* Block number* 
DC XL2" Displacement of PN from 
block* 



Linkage : This subroutine is called only 
when the optimization option (OPT) is 
requested and a GO TO DEPENDING ON 
statement is used. 



LH 




3, Number of PN's in list 


L 




1, Contents of data-name 


L 




2,=V(ILBDSEM1) 

or, if the program 
is not segmented. 


SR 




2,2 


L 




15,=V(ILBDGDO0) 


BALR 


14,15 


1 set of DC 




X' Priority' 


constants DC 




X° Block number* 


for each DC 




XL2* Displacement of PN 


PN 




from block" 


specified: 






Output: There 


is 


no output from this 



subroutine. 



If GO TO DEPENDING ON: 



Control passes to entry point ILBDSEMl 
from subroutine ILBDGDOO with register 
14 pointing to a 4-byte parameter list 
as described above. 



Output : There is no output from this 
subroutine. 



TEST AND COMPARE SUBROUTINES 



The subroutines described below test 
certain characteristics of items in virtual 
storage. Condition codes or return codes 
indicate the results of the test or 
comparison. 



GO TO DEPENDING ON (ILBDGDOO) 



Class Test (ILEDCLSO) 



Operation : This subroutine uses the value 
of a particular data-name as an index into 
a list of constants for each PN specified 
and then transfers control to the proper 
PN. If the value of data-name is greater 
than the number of PN's specified or less 
than 1, control returns to the next 
instruction after the calling sequence. 
Otherwise, the subroutine uses the value of 
data-name as an index into the list of 
constants for each PN specified. If the 
program is not segmented, the subroutine 
uses the set of constants to determine the 
address of the PN, and loads the Procedure 
Block for that PN into register 11, and 
then branches to the PN. If the program is 
segmented, the subroutine transfers control 
to the Segmentation subroutine at entry 
point ILBDSEMl; register 14 contains the 
address of the set of constants for the 
appropriate PN to be branched. 



Operation : This subroutine performs a test 
to determine whether a field is alphabetic, 
external decimal, or internal decimal. The 
field (operand) will be variable length or 
of a length greater than 256 bytes. The 
subroutine uses one of five tables: 



ILBDATBO (alphabetic) 
ILBDETBO (signed external decimal) 
ILBDITBO (signed internal decimal) 
ILBDUTBO (unsigned internal decimal) 
ILBDWTBO (unsigned external decimal, 
numeric edited, 
alphanumeric, and 
alphanumeric edited) 



The address of the table is loaded into 
register 2. The tables are 256-byte 
translate tables which enable the 
subroutine to perform testing. 
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Linkage : 



For fixed- length operands: 


L 


2, =V (Table) 


L 


15,=V(ILBDCLS0) 


BALR 


1,15 


DC 


XLl'Type code' 


DC 


XL3* Length of item' 


DC 


ALKbase code) 


DC 


AL3 (displacement of pointer 




in TGT to data-name) 


DC 


XL2" Displacement of item 




from BL address* 



For variable-length operands: 



L 

L 

BALR 

DC 

DC 



DC 
DC 



DC 



2,=V(Table) 

15,=V(ILBDCLS0) 

1,15 

XLl"Type code' 

AL3 (displacement of the 

variable-length cell 

in the TGT) 
ALKbase code) 
AL3 (displacement of item 

from above base) 
XL2 W Displacement of item 

from BL address* 



where the type code bits are: 

Bit Meaning, if on 

0-1 Not used 

2 Variable-length item 

3 Direct pointer (for example, for 

a literal or TALLY) 
4-7 Not used 



DC 
DC 



DC 
DC 

DC 



XLl'Type code' 

AL3 (displacement of the variable- 
length cell in the TGT from the 
base register code) 

ALKbase register code) 

AL3 (displacement of base locator 
from above base register) 

XL2* Displacement of item from 
BL address* 



For fixed- length operand: 

DC XLKType code* 

DC XL3* Length of operand' 

DC ALKbase code) 

DC AL3( displacement of item from 

above base) 
DC XL2" Displacement of item from 

BL address* 

The Type codes are: 

Meaning, if on 
Figurative constant 
Not used 
Variable length 
Direct pointer to the Program 
Global Table (for a literal) 
4-7 Not used 

Output : The condition code is set to 
indicate whether Operand-A is less than, 
egual to, or greater than Operand-B. 



Compare Figurative Constant (ILBDIVLO) 



Output : The condition code is set to 
when the test is true and to nonzero when 
the test is false. 



Compare (ILBDVCO0) 



Operation : Compares two operands, one or 
both of which are variable in length or are 
greater than 4096 bytes in length. When 
control is returned to the object program, 
the condition code is set to indicate 
whether operand-A is less than, equal to, 
or greater than operand-B. 



Linkage: 




L 


15,=V(ILBDVCO0) 


BALR 


1,15 


DC 


XL10' Operand-A Information' 




(sc?e note) 


DC 


XL10* Operand-B Information' 




(see note) 



Note : Substitute one of the following: 
For a variable-length operand: 



Operation : This subroutine compares a 
data-name operand and a figurative constant 
of more than one character. The figurative 
constant is always the second operand. 



Linkage : 

MVC 

L 

L 

LA 

LA 

L 

BALR 



Par am Cell-l,FIGCON 

0, Length of figurative constant 

1, Length of data-name operand 

2,Param Cell-1 

3, Data-name 

15, =V (ILBDIVLO) 

14,15 



Output : The condition code is set to 
indicate whether the data-name operand is 
less' than, equal to, or greater than the 
figurative constant. 



UPSI (ILBDUPSO) 



Operation : This subroutine initializes the 
UPSI bytes in the TGT. It is called at the 
beginning of the program, if the user has 
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specified UPSI in the SPECIAL NAMES 
paragraph. 



Linkage ; 



L 
BALR 



15,=V(ILBDUPS0) 
14,15 



Output ; If the UPSI bit is on, the 
corresponding byte in the TGT is set to 
X*F1'; otherwise, it is left at X'FO*. 



Linkage (ILBDSETO) 



Operation : This subroutine sets the switch 
byte of the Program Indicator subroutine 
(ILBDMNSO) to X'FF'. The linkage 
subroutine must be called by any program 
which is not an American National Standard 
or DOS/VS COBOL program before that program 
calls an American National Standard or 
DOS/VS COBOL subprogram. The name of this 
subroutine can be changed to any name 
specified by the user. 



Linkage ; 

L 

L 

BALR 
L 
BALR 



13,A(Savearea) 

15„=V( ILBDSETO) 

14,15 

15„=V( COBOL subprogram) 

14,15 



Output ; The switch byte of subroutine 
ILBDMNSO is set to X'FF*. 



Program Indicator (ILBDMNSO) 



Operation ; This subroutine is a one-byte 
switch which is set to indicate whether the 
program is a main program or a subprogram. 

Linkage ; None. 

Output ; The byte is set to X'FF' for a 
main program and to X'OO' for a subprogram. 



T IME-OF-DAY and CURRENT-DATE Subroutine 
(ILBDTODO) 



Operation ; This subroutine,, in response to 
the use of the TIME-OF-DAY special 
register, issues the GETIME macro 
instruction and calculates the time of day 
of the execution of the program. In 
response to the use of the CURRENT-DATE 
special register, the subroutine issues the 
COMRG macro instruction and calculates the 
date of the execution of the program. 



Linkage: 












TIME-OF-] 


DAY 










LA 


2, 


receiving 


field 






LH 


3, 


length of 


receivi 


ng 


field 


LNR 


3, 


3 








L 


15 


,=V (ILBDTODO) 






BALR 


14 


,15 









CURRENT-DATE 

LA 2, receiving field 

LH 3, length of receiving field 

L 15,=V(ILEDTOD0) 

BALR 14,15 

Output ; The time in the form of 
hour/minute/second (HHMMSS) or the date in 
the form either of day/month/year 
(DD/MM/YY) or of month/day/year (MM/DD/YY) 
is stored in the receiving field. The form 
of the date is set at system generation 
time- 



SYMDMP Address Test (ILBDADRO) 



Operation ; This subroutine tests the 
validity of an address calculated for a 
subscripted identifier or the validity of 
the starting and ending addresses of a 
variable-length identifier used as a 
receiving field in a MOVE instruction. The 
subroutine determines whether the address 
lies within a data area for any of the 
current programs in the run unit. Checking 
for valid addresses is only performed when 
all programs in the run unit are American 
National Standard or DOS/VS COBOL programs. 
The subroutine has two entry points. 

It is called at entry point ILBDADRO 
from the inline code generated to calculate 
the address of a subscripted item. 

It is called at entry point ILBDADR1 
from subroutines ILBDVMOO and ILBDMOVO 
before a variable-length MOVE instruction. 

Linkage ; 

From generated code: 

LR 0, register containing data-name 

address 
L 15, =V( ILBDADRO) 
BALR 14,15 

From subroutines ILBDMOVO and ILBDMVO0: 

LR 0, register containing data-name 

address 
LR 1, register containing length 
L 15,=V(ILBDADR1) 
BALR 14,15 
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Output ; If the address or addresses are 
valid, control is returned to the caller. 
If the address or addresses are invalid, an 
error message (C170I - INVALID ADDRESS) is 
written on SYSLST and subroutine ILBDMP20 
is called to produce a symbolic dump. 



GENERAL DATA MANAGEMENT SUBROUTINES 



The subroutines described below perform 
certain I/O operations, such as,, accepting 
and displaying information, opening and 
closing files. 



DISPLAY (ILBDDSPO) [EA] 

Operation : This subroutine is used (in 
conjunction with ILBDDSSO) to print, punch, 
or type data, usually in limited amounts, 
on an output unit. TRACE and EXHIBIT are 
special kinds of DISPLAY. The acceptable 
forms of data for this subroutine are: 

1. Display 

2. External decimal 

3. Internal decimal 

4. Binary 

5. External floating-point 

Internal decimal and binary are converted 
by the subroutine to external decimal. 
Internal floating-point numbers are 
converted to external floating-point before 
the subroutine is called and placed in the 
PARAM cells of the TGT. 

Note : When OPT has been specified, 
subroutine ILBDDSSO is sometimes called 
instead of subroutine ILBDDSPO. See 
"Optimizer DISPLAY (ILBDDSSO)" below. 

When NOOPT is in effect or the ILBDDSSO 
criteria cannot be met, ILBDDSPO is called. 
This causes ILBDDSSO to be included at link 
edit time. At object time the two 
subroutines act as a superset of the 
DISPLAY function. (See the ILBDDSPO and 
ILBDDSSO flowcharts for a visual 
representation of this interaction.) 

Linkage : 

For DISPLAY, the linkage is: 

LA 

L 



L 15, =V (ILBDDSSO) 

BALR 1,15 

DC XL2' Device code* 

(See Note 1) 
operand information 

(See Note 2) 

(Parameters) 

DC X'FFFF" 

For TRACE, the linkage is: 

L 15, =V (ILBDDSPO) 

or 
L 15,=V(ILEDDSS0) 
BALR 1,15 
DC XL 2" Device code" 

(See Note 1) 
DC X'40' (Type code) 

(See Note 3) 
DC X"5* 

DC XL6 (EBCDIC generated card 
number) 

For EXHIBIT, the linkage is: 



- 


(Test coding if CHANGED 


„ 


case) 


L 


15, =V (ILBDDSPO) 




or 


L 


15,=V(ILBDDSS0) 


L 


2, A (Switch) 




(See Note 4) 


BALR 


1,15 


DC 


XL2* Device code* 




(See Note 1) 


operand information 




(See Note 2) 



DC 



(Parameters) 



X'FFFF" 



2, =C( PROGRAM- ID) 

(If DISPLAY on SYSPCH) 
15,=V(ILBDDSP0) 
cr 



Note 1 : The device codes specify the 
device to be used. They are: 

Code Device 

1 SYSLST 

2 CONSOLE 

3 SYSPCH 

4 SYSIPT 

Note 2 : The operand information describes 
each item and has one of the following 
three formats: 

1. Fixed length, ready to display: 

DC XLl*"Type code" 

(See Note 3) 
DC XL 3 'Length of item* 
DC AL1 (base code) 

(see Note 5) 
DC AL3 (displacement of pointer 

in TGT to data-name or 

displacement of literal 
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DC 



text or TALLY) 
XL2 1 Displacement' 



2. Fixed-length binary or internal 
decimal (conversion is required) : 

DC XLl'Type code* 

(See Note 3) 
DC XLl' Length of input item* 
DC XL2" Length after conversion" 
DC ALKbase code) 

(See Note 5) 
DC AL3 (displacement of item 

from above base) 
DC XL2' Displacement 1 

3. Variable length: 

DC XLl* Type code' 

(See Note 3) 
DC AL3 (displacement of the 

variable-length cell in 

the TGT) 
DC ALKbase code) 

(See Note 5) 
DC AL3 (displacement of item 

from above base) 
DC XL2" Displacement" 

Note 3 : The type code bits are: 

Bit Meaning, if on 

Not used 

1 TRACE item 

2 Variable length 

3 DIRECT pointer (for example, 

for a literal TALLY) 
4-5 See below 

6 Internal decimal item 

7 Binary item 

If bits 4 through 7 are all on, the item 
is numeric, ready to display. If bits 4 
through 7 are all off, it is nonnumeric. 

Note 4 : The switch indicates whether or 
not an item should be exhibited. It is a 
2-bit switch and corresponds to either one 



or two 10- byte operands. Figure 5 gives 
the switch codes, an indication of whether 
SEG1 (the first operand) is an alphanumeric 
literal, the meaning of codes, and the 
action that is taken. 

An overriding situation occurs to the 
conditions in Figure 5 if register 3 
contains a zero when the subroutine is 
called, indicating the first-time through 
requirement for the EXHIBIT CHANGED (NAMED) 
case.. It is assumed that the second bit of 
the switch is on and only the first three 
conditions can occur. 

Note 5 : The base code indicates a register 
which contains a pointer to the TGT or the 
PGT. 

Output : Lines of print via a PUT on the 
printer or the card punch, or via an EXCP 
on the console. 



Optimizer DISPLAY (ILBDDSSO) [EB] 



O peration : When OPT has been specified, 
this subroutine is used to print or type 
data of a certain kind on SYSLST or the 
console, respectively. Acceptable, forms of 
data are the same as those listed for the 
ILBDDSPO subroutine except the following: 

floating- pont data-names; 

floating-point literals; 

variable-length items; 

any DISPLAY verb where the sum of the 
operand lengths exceeds 120 bytes 
for SYSLST or 100 bytes for the 
console; 

any DISPLAY UPON SYSPCH. 

Note : When any of the above items are to 
be printed, or typed,, subroutine ILBDDSPO 
is called together with Subroutine 
ILBDDSSO. 



r t t- 

| First Segment] 

j Alphanumeric j 

Switch j Literal j 



+- 

01 or 00 j 



Meaning 



Action 



-+- 



j Source literal or j Display as "SEGl* (up to 10 bytes) 
j figurative constant! 



I'- 



ll 



yes 



Named, changed 



j Display as 'SEGl = SEG2 ' (up to 20 bytes) 



11 



no 



JNot named, changed j Display as 'SEGl' (up to 10 bytes) 



10 



yes 



| Named, not changed (Nothing displayed (up to 20 bytes) 



10 



no 



| Not named, not 
| j changed 
._j. x 

5. Switch Codes for Display 



j Display n + 1 blanks when n is the length 
I of SEGl (up to 10 bytes) 



Figure 
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Linkage : The linkage to this subroutine is 
the same as the linkage to subroutine 

ILBDDSPO. 



Output : Lines of print via a PUT on the 
printer or via an EXCP on the console. 



ACCEPT (ILBDACPO) [EC] 



Operation : Services ACCEPT and STOP 
literal statements. For ACCEPT, a record 
is read from SYSIPT or the console. 
Lowercase alphabetic characters accepted 
from the console are translated to their 
uppercase equivalents. For STOP, the 
literal is typed on the console. 



Linkage : 

L 

BALR 
DC 

DC 

DC 



DC 



DC 



Note 1 : 

Bit 

0-1 

2 

3 

4-7 



15,=V(ILBDACP0) 

1,15 

XL2' Device code' 

(See Note 2) 
XLl'TYPE' 

(See Note 1) 

XL3'MNN* (If binary or internal 
decimal, M=length of input 
item and NN=length of conver- 
ted result. If variable-length 
the three bytes are an ADCON 
pointing to the VLC-CELL. 
Otherwise, the three bytes are 
the length.) 

ALU (base locator) 
or 

AL4 (operand-text) 

(if bit 3 of TYPE is set) 

XL2' Displacement of text 
from base* 

The TYPE bits are: 

Meaning, if on 
Not used 
Variable-length 
Pointer ADCON is direct 
Not used 



Note 2 : The device codes specify the 
device to be used. They are: 

Code Device 



Checkpoint (ILBDCKPO) [ED] 



Operation : This subroutine builds a table 
of pointers to DTF*s of all magnetic tape 
units used in the problem program and its 
subprograms, and issues a CHKPT macro 
instruction, which will write checkpoint 
records on a user specified tape or disk 
checkpoint device. 



Linkage: 


There are three sequences: 


1. The first call, made during 


initialization is: 


L 


15, =V (ILBDCKPO) 


CNOP 


2,4 


BALR 


14,15 


DC 


XL8'0' (See Note) 


DC 


A(DTFPTR-l) 




(address of first DTF cell) 


DC 


A(DTFPTR-n) 




(address of last DTF cell) 



2. When the specified number of records 
of the RERUN file has been read or 
written, the subroutine is called 
again, as follows: 

L 15„=V(ILBDCKP1) 

BALR 14, ,15 

DC X ' N ' 

DC XL7 'External name 1 

3„ During a sorting operation requiring 
checkpoints the SORT subroutine calls 
this subroutine as follows: 

L 1, A (Physical IOCS list) 
L 15 # =V(ILBDCKP2) 
BALR 14„15 

Note : If SORT RERUN is specified, 
substitute the following two instructions: 



DC 
DC 



X*N f 

XL7* External name" 



where: 



X'0002' 
X'0004* 



CONSOLE 
SYSIPT 



is the unit number of the checkpoint 
device, and 

External name 

is the external name of the checkpoint 
file or SYSxxx if no external name is 
used. 



For a STOP literal, the first byte of 
the device code is X*80*. 

Output : The record accepted is placed in 
the operand specified. If it is a STOP 
literal, the message is typed on the 
console. 



Output : For DTFMT's, the DTF address is 
placed in a parameter list for CHKPT, and 
the macro instruction is issued. For more 
details on this macro instruction, refer to 
IBM DOS/VS Supervisor and I/O Macros 
Reference , Order No. GC33-5373. 
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General Data Management Subroutines 

The following subroutine has been added. 

ILBDTABO 

Operation : This subroutine contains a table of device-dependent 
information for tape or mass-storage devices and a search routine 
to get the table entry corresponding to the caller's parameter. 
The parameter may be either a PUB device code or a DTF device code 

Linkage : 

L 1 ,=A( search argument) 

L 1 5 ,=V( ILBDTABO) 

BALR 14,15 

DC AL1 (indie) (See Note 1) 

DC AL1 (default) (See Note 2) 

Note 1 : indie is an index into branch vector, which 

indicates whether the parameter pointed to by 
register 1 is a PUB code (indic=0) or a DTF 
code (indic=4) . 

Note 2 : default is an alternate search argument to use 
instead of the parameter in register 1 if the 
search does not yield a match for the parameter. 
Specify 255 if you do not want the default. 

Output : Register 1 contains the address of the table entry 
containing the information corresponding to the caller's 
parameter. If the search is unsuccessful, register 1 is set to 0. 
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OPEN ACCEPT File (ILBDASYO) [EEJ 



Operation : This subroutine ensures that 
SYSIPT is open. It is called if there is 
an ACCEPT FROM SYSIPT statement in a label 
declarative. 

Linkage : 

L 15, =V( ILBDASYO) 
BALR 14,15 

Output : SYSIPT is opened if it was not 
already opened.. 



OPEN DISPLAY File (ILBDOSYO) [EF] 



Operation : This subroutine ensures that 
SYSLST or SYSPCH or both are open. It is 
called if there is a DISPLAY UPON SYSLST or 
a DISPLAY UPON SYSPCH or both in a label 
declarative. 

Linkage : 

L 15, =V( ILBDOSYO) 
BALR 14 „ 15 
DC X"NNNN" 

where: 

•NNNN* = '3000' 

if both DISPLAY'S are used 

* NNNN* = * 2000' 

if the device is SYSLST 

•NNNN' = '1000' 

if the device is SYSPCH 

Output : SYSLST and/or SYSPCH is opened if 
it was not already open. 



Close With Lock (ILBOCLK0) [EG] 



Operation : This subroutine receives 
control only when an OPEN is to be executed 
for a file and a CLOSE WITH LOCK for that 
file is specified anywhere within the 
program. The Pre-DTF switch is tested to 
determine if the file was closed with lock; 
a X'FF' indicates it was. If the file was 
not closed with lock, control is returned 
to the COBOL program. If it was closed 
with lock, the subroutine issues an error 
message and the job is terminated. 



Linkage : 

L 
L 
BALR 



1, DTFPTR 

15,=V(ILBDCLK0) 

14,15 



Output : A message is issued stating that 
an attempt has been made to reopen a file 
that was closed with a lock and the job is 
terminated. 



User Standard Labels (ILBDUSL0) [EH] 



Operation : This subroutine enables the 
user to write or check user standard 
labels. It determines the label condition 
(BOF, BOV, EOF, or EOV) and branches to the 
appropriate user procedure. 

Linkage : None. The address of this 
subroutine is in the DTF and is branched to 
from LIOCS. 

Output : Register is set to decimal 8, 
12, 16, or 20 depending on entry conditions 
(EOF, EOF, EOV, BOV, respectively). 
Register 4 points to the DTF.. If there are 
tape output files and no user procedure, 
the COBOL label bit is turned on to 
indicate to LIOCS that no labels are to be 
written. 



Nonstandard Labels (ILBDNSL0) [EI] 



Operation : This subroutine reads and 
writes nonstandard labels and branches to 
the appropriate user label processing 
routine. It writes a tape mark after the 
last trailer label on each output reel. 

Linkage : One of the following: 

1. When the entry is from LIOCS, the 
entry point will be ILBDNSL0). 

2. When the entry is from a user 
procedure and return is to the 
procedure: 

L 15„=V(ILBDNSL1) 
BR 15 

3. When the entry is from a user 
procedure and return is to LIOCS: 

L 15,=V(ILEDNSL2) 
BR 15 

Output : Register 4 points to the DTF and 
Register 1 to the label area. 



Error Messages ($$BCOBER) [EJ] 



Operation : This subroutine prepares 
input/output error messages to be printed 
by the Error Message Print Subroutine 
($$BC0BR1). After preparing the error 
message, it places the address cf the 
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message in register 0. Then it fetches 
$$BC0BR1, overlaying itself. See the 
descriptions of ILBDSAEO, ILBDISEO, and 
ILBDDAEO. 



Linkage: 




LA 


4,DTF-8 


LA 


0,ERRCODE 


SLL 


0,24 


OR 


0,4 


LA 


l,=C 1, $$BCOBER* 


SVC 


2 


Output : 


Register cont 



an error message to be written by $$BCOBRl 
on SYSLOG or SYSLST. 



Error Message Print ($$BC0BR1) [EK] 



Operation ; This subroutine prints the 
input/output error messages prepared by the 
Error Messages Subroutine ($$BCOBER) and 
provides a dump if the DUMP option is in 
effect. After the subroutine prints the 
error message, it tests the DUMP bit. If 
the bit is on, it calls the $$BPDUMP 
Subroutine via a SVC 2 instruction. If the 
DUMP bit is off, $$BC0BR1 returns control 
to the routine which fetched $$BCOBER. In 
either case the fetching routine determines 
if the job should be cancelled or control 
transferred to the Debug Control subroutine 
(ILBDDBGO). See the descriptions of 
subroutines ILBDSAEO, ILBDISEO, and 
ILBDDAEO for further information on 
input/output error handling. 



Linkage : 



LA 
SVC 



1,=C B $$BC0BR1' 
2 



Note: Register contains the address of 
the message to be printed. 

Output : An error message on SYSLOG and/or 
SYSLST and, optionally, a PDUMP. 



SYMDMP Error Message ($$BCOBEM) [EL] 



Operation : This subroutine (a transient) 
puts the correct error message into the 
buffer of the PRINT routine (ILBDDBGl). 
When this subroutine is fetched by the 
PRINT routine, register contains the 
error number in the high-order byte and the 
address of the buffer in the low-order byte 
and the address of the buffer in the low- 
order three bytes. If the error number 
does not fall within the range of errors 
contained in the subroutine, control is 
returned to the fetching program. 



Linkag e: 

L 

LA 
SVC 



0,CURRBUFF Error code and buffer 
address 

l,C'$$BCOBEM' 
2 



Output : An error message on SYSLST. 



3886 Optical Character Reader (OCR) 
Interface (ILBDOCR0) [Chart EM] 



Operation : ILBDOCRO handles all 
input/output operations with the 38 86 
Optical Character Reader and builds the OCR 
File Control Block required for this 
purpose. The subroutine receives control 
from the COBOL program via the CALL 
statement with the USING parameter for 
action requests and from the DOS/VS system 
for error recovery and end-of-file 
condition. 

For an action request the functions of 
the subroutine are as follows: 

• Validate operation code (See Note 1) 

• Validate OCR-file identification by 
searching OCR File Control Elock chain 

• Test for valid sequence of WAIT and 
READO operations 

• Call action routine to issue 
appropriate macro instruction for 
request (see Note 1) 

• Build OCR File Control Block (via 
GETVIS) for OPEN requests and release 
OCR FCB (Via FREEVIS) for CLOSE 
requests 

• Set Status Key (See Note 2) 

Note 1 : Valid OCR operations and the 
DOS/VS macro instructions issued for each 
are listed below: 



OCR-operation 

OPEN 

CLOSE 

READ 

READO 

WAIT 

SETDV 

MARKL 

MARKD 

EJECT 



DCS/VS macro instruction 

OPEN 

CLOSE 

READ and WAITF 

READ 

WAITF 

SETDEV 

CNTRL 

CNTRL 

CNTRL 



Note 2 : The status key contains a 
completion code returned to the COBOL 
program. The codes, their meanings, and 
the action requests which generate them are 
listed below: 
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r t t 1 

| Code | Meaning j Action Request j 






h + 



I- + 

33 



00 



10 



31 



32 



34 



39 



92 



-+ 



j. + 



93 



95 



99 



Successful 
completion 



H 



End-of-f ile 



Mark Check 



Nonrecovery 
error 



Incomplete 
Scan 



Mark Check 6 

Equipment 

Check 



Permanent 
error 



Logic error 



Insufficient 
storage 



Invalid 
Parameter 



Unrecognizable 
operation 



OPEN, CLOSE, READ, 
READO, WAIT, MARKL, 
MARKD, EJECT, SETDV 

READ, WAIT, MARKL, 
MARKD, EJECT, SETDV 



EJECT 



READ, READO, WAIT, 
MARKL, MARKD, EJECT, 
SETDV 



READ, WAIT 



EJECT 



READ, READO, WAIT, 
MARKL, MARKD, EJECT, 
SETDV 



OPEN, CLOSE, READ, 
READO, WAIT, MARKL, 
MARKD, EJECT, SETDV 



OPEN 



OPEN, READ, READO, 
MARKL, MARKD, EJECT 



•j Linkage ; 



Linkage ; Called by compiled code for the 
CALL statement. 



Note ; The user must set appropriate fields 
in the identifier data area before issuing 
the. CALL statement with the USING option. 
(Refer to the 3886 statement in IBM DOS/VS 
COBOL Programmer's Guide , Order 
No. GC28-6478.) 

Output : The OCR File Control Block is 
built in virtual storage; the indicated 
action request is performed; a return code 
is entered in the Status Key field of the 
OCR file data area. 



SA Printer Spacing (ILBDSPAO) [FA] 



Operation ; This subroutine performs 
printer spacing; that is, it handles the 
WRITE statement with the ADVANCING option 
in the following cases: 

AFTER. . .mnemonic-name, using 

System/360 control characters, 
ADVANCING identifier, and 
ADVANCING integer-greater-than-3. 

It calls subroutine ILBDVBLO to write 
variable-length blocked records and 
subroutine ILBDMOV0 to move blanks or data 
to the buffer. 



L 0, A (Record) (If APPLY WRITE-ONLY) 

L 2,BUFDTR (If no APPLY WRITE-ONLY) 

L 4, A (Identifier) 

L 1„DTFPTR 

L 3„ RECORDLEN 

L 15, =V( ILBDSPAO) 

BALR 14,15 

DC B' 01234567* (See Note 1) 

DC X'ZZ" (See Note 3) 

DC B* 01234567' (See Note 2) 

Note 1 ; Substitute binary digits as 
follows : 

For 01: 00 if a binary indentifier 
01 if a packed decimal 

identifier 
10 if a zone decimal 
identifier 

For 2: if before 
1 if after 

For 3: if System/360 control 
character 
1 if ASA control characters 

For 45: 00 if integer 

01 if identifier 
10 if mnemonic 

For 67: The remainder of integer/3. 

Note 2 ; Substitute binary digits as 
follows: (1, 2, and 3 are not used): 



For 0: 



1 if ASCII file 



SEQUENTIAL ACCESS DATA MANAGEMENT 
SUBROUTINES 



For 4 567: 0100 if undefined 

1000 if APPLY WRITE-ONLY 

0000 if fixed 

0001 if variable unblocked 
0010 if variable blocked 

(not APPLY WRITE-ONLY) 



The subroutines described below handle 
some special I/O operations for the 
sequential access method. 



Note 3 : ZZ = mnemonic skip code, or 
quotient of integer/3, or length of 
identifier. 
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Output : The user's record, with proper 
spacing, is written on his output file. 
IOREG (+4 if variable blocked records) is 
forwarded to main line. 



SA Variable-^Length Record Output (ILBDVBLO) 
[FB] 



Operation : This subroutine writes 
variable-length blocked records. It calls 
ILBDMOVO to move records into a buffer. 



SA Tape Pointer (ILBDIMLO) [FD] 



Operation ; This subroutine gets the 
pointer to the physical tape drive 
associated with the logical unit for a 
particular tape file. 



Linkage ; 



LA 

L 

BALR 



O f DTFPTR cell 

15,=V(ILBDIML0) 

14,15 



Output ; The current PUB pointer for this 
device is moved to DTF-8. 



L 


1,DTFPTR 


L 


2, A(record) 


L 


3, Record length 


L 


15 f =V(entry point) 


BALR 


14,15 


where: 





entry point 

is ILBDVBLO if the subroutine was 
called by ILBDSPAO, or ILBDVBL1, if 
the subroutine was called by the 
main-line program. 

Output : The record is written and the 
IOREG is advanced past the record length 
field. 



SA Error (ILBESAEO) [FC] 



SA Position Multiple File Tapes (ILBDMFTO) 
[FE] 



Operation : This subroutine positions an 
unlabeled or nonstandard labeled tape to 
the beginning of a desired file. Given a 
position integer greater than one, the 
subroutine rewinds and forward- spaces the 
tape, bypassing all files ahead of the 
desired one- 



Linkage: 



L 

LA 
L 
BALR 



1,DTFPTR 

2, Position integer 

15,=V(ILBDMFT0) 

14,15 



Output : The tape is positioned. 



Operation : This subroutine handles errors 
on DTFMT and DTFSD files, either by setting 
user error bytes (if any) and exiting to 
the user error routines or by setting the 
error code and fetching the $$BCOBER 
routine. If $$BCOBER is fetched, an 
appropriate message is printed on SYSLOG 
and SYSLST by $$BC0BR1. If a dump is not 
required, return is made to ILBDSAEO; if it 
is, $$BPDUMP is called. $$PDUMP provides 
the dump and returns control to ILBDSAEO. 
If ILBDDEG2 (the STXIT routine) is in the 
load module, control is passed to it. If 
it is not, the job is cancelled. 

Linkage : None.. Control is transferred to 
this subroutine through LIOCS. The address 
of the subroutine is in the DTF. 

Entry points are: 

ILBDSAEO (ADDR in ERROPT field of DTF) 
ILBESAE1 (ADDR in WRLERR field of DTF) 

Output : Register contains the error code 
and the address of DTF-8 when fetching 
$$BCOBER. 



SA Test Tape File (ILBDMVEO) [FF] 



Operation : This subroutine determines 
whether a multivolume unlabeled tape has 
reached EOF or EOV and acts accordingly. 
It sends a message reading, "C126D IS IT 
EOF?" to the operator. If the operator's 
answer is yes (Y or y) , the subroutine 
exits to the AT END address; if it is no (N 
or n) , the subroutine executes an FEOV 
instruction to switch to the next volume, 
executes a GET instruction to get the first 
record, and then returns. 

Linkage : 



L 


5„A(AT END routine) 


L 


1 # A(DTF) 


BALR 


15,0 


LA 


3,12(15) (See Note) 


L 


15,16(1) 


BAL 


14,8(15) 



For spanned records, a different linkage is 
required since register 3 is not available 
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and the work area address is needed by the 
subroutine: 



CNOP 


2,4 


L 


5,A(AT END routine) 


BALR 


15,0 


ST 


5,20(15) 


ST 


0,24(15) 


LA 


5,20(15) (Register 5 points to the 




2 fullword constants below) 


L 


15,16(1) 


B 


8(5) 


DS 


F (Contains end-of-file address) 


DS 


F (Contains workarea address) 


BAL 


14,8(15) 


Note: 


This is the same address as that in 


register 14. 


Output : 


The message, "C126D IS IT EOF" is 



sent to the operator. 



SA STXIT Macro Instruction (ILBDABXO) [FG] 



Operation : This subroutine is called 
during the code generated for OPEN verbs. 
It issues a STXIT AB macro instruction 
specifying that an address within the 
subroutine is to be given control by the 
system in the event of abnormal 
termination. The secondary entry point is 
called if an error occurs on a unit record 
device, there is a standard error 
declarative for the device, and STXIT is 
requested on the CBL card. If the ILBDTC20 
subroutine is in the load module, control 
is passed to it. 



Linkage : 

L 
BALR 

Output ; 
issued. 



15, =V (ILBDABXO) 
14,15 

The STXIT AB macro instruction is 



Note : The saved PUB pointer is at DTF-8 

Output : the LUB and JIB pointers may be 
changed. 



INDEXED SEQUENTIAL ACCESS DATA MANAGEMENT 
SUBROUTINES 



The subroutines described below handle 
some of the I/O operations for the indexed 
sequential access method. 



ISAM READ and WRITE (ILBDISMO) [GA] 



Operation : This subroutine handles all 
indexed sequential READ and WRITE 
instructions. It checks for invalid key 
and input/output errors and branches 
accordingly to the appropriate procedure. 



Linkage : 

L 

L 

L 
L 
BALR 



1 , DTFPTR 

0„ A (Record) BL for Sequential 

READ, REWRITE only 
15,=V(entry point) 
5„A(INVKEY or EOF) 
14,15 



For 'entry point, * substitute one of the 
following: 

ILBDISMO for LOAD or EXTEND (WRITE, 

Sequential) 
ILBDISM1 for ADD (WRITE, Random) 
ILBDISM2 for Random Retrieval (READ, 

Random) 
ILBDISM3 for Random Retrieval (READ, 

Sequential) 
ILBDISM4 for Random Update (REWRITE, 

Random) 
ILBDISM5 for Sequential Update (REWRITE, 

Sequential) 

Output : The record is read or written. 



SA Reposition Tape ($$BFCMUL) [FH3 



ISAM Error Routine (ILEDISEO) [GB] 



Operation : This subroutine resets the PUB 
pointer for a particular (SYSnnn) device to 
the same as that saved earlier (by 
subroutine ILBDIMLO). It rotates the 
LUB/JIB pointers until the current PUB 
pointer is identical to the saved one. 

Linkage : 

L 0,A(DTF) (See Note) 
LA 1,=CL8 , $$BFCMUL" 
SVC 2 



Operation : This subroutine processes ISAM 
errors either by setting user error bytes 
(if any) and branching to a user error 
routine, or if there is no user error 
routine, by setting the error code and 
fetching $$BCOBER. If the exit is to the 
user routine, register 1 points to the 
error block. If $$BCOBER is fetched, an 
appropriate message is printed on SYSLOG 
and SYSLST by $$BC0BR1. Then, if a dump is 
not required, control returns to ILBDISEO; 
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if it is, $$PDUMP is called, provides the 
dump and returns control to ILBDISEO. If 
ILBDDBG2 (the STXIT routine) is in the load 
module, control is transferred to it. If 
it is not, the job is cancelled. 

Linkage : 

If this subroutine is called by 

ILBDISMO: 

L 2,ERRBLKPTR 

L 1,DTFPTR 

L 15,=V(ILBDISE0) 

BR 15 

If this subroutine is called by the main 
line: 

L 1,DTFPTR 

L 15,=V(ILBDISE1) 

BR 15 



LH 5, =H* LENGTH" 

OR 'VLC 
L 15,=V(ILBDSTR0) 
BALR 14,15 



(Length of 
identifier) 



Output : For START, the file is positioned 
to the specific key within the file. For 
START with KEY EQUAL TO, the file is 
positioned to the beginning of the generic 
group within the file. The generic key 
identifier is moved to the NOMINAL KEY 
data-name and padded with zeros if 
necessary. 



DIRECT-ACCESS DATA MANAGEMENT SUBROUTINES 



The subroutines described below handle 
some of the I/O operations for the direct 
access method. 



Output : User error bytes, if any, are set 
to reflect the error condition. Register 1 
points to the error block for data transfer 
on input file- The error code and address 
of DTF-8 (for PDUMP) are forwarded in 
register when fetching $$BCOBER. 



DA Close Unit (ILBECRDO) [HA] 



Operation : This subroutine implements a 
CLOSE UNIT instruction on a DA file which 
is read sequentially when absolute track 
(physical) addressing is used. 



ISAM START (ILBDSTRO) [GC] 



Operation : This subroutine, in response to 
START or START with the KEY EQUAL TO 
option, issues the $$BSETL macro to 
initiate sequential retrieval. If the 
subroutine is called in response to the KEY 
EQUAL TO option, certain processing occurs 
prior to the issuance of the $$BSETL macro; 
after obtaining the address and length of 
the NOMINAL KEY data-name (KEYARG) from the 
DTF, this subroutine moves the generic key 
identifier to the NOMINAL KEY data-name and 
pads with zeros if the generic key 
identifier is shorter. 



Linkage : 



L 
L 
BALR 



1 , DTFPTR 

15,=V(ILBDCRD0) 

14,15 



Output : The current extent bucket in the 
Extent Store Area (described under "DA 
Extent Processor") and the SEEK address are 
updated to the first extent on the next 
volume for subroutine ILBDDSRO. 



DA Close Unit for Relative Track (ILBDRCRO) 



IHB] 



Linkage : 

If the subroutine is called in response 
to START: 



L 0, DTFPTR 

L 15„=V(ILBDSTR1) 

BALR 14,15 



(Entry point in 
ILBDSTRO) 



If the subroutine is called in response 
to START with KEY EQUAL TO: 



Operation : This subroutine implements a 
CLOSE UNIT instruction for relative track 
addressing on a DA file which is read 
sequentially. 



Linkage : 



L 
L 
BALR 



1, DTFPTR 

15, =V (ILBDRCRO) 

14,15 



L 
LA 



0, DTFPTR 

3, identifier 



(Address of 
identifier 
which contains 
key value 
requested) 



Output : The current extent bucket (in the 
high-order byte of DTF-16; followed by the 
3-byte address of the extent table in the 
DTF) and the SEEK address are updated to 
the first extent on the next volume for 
subroutine ILBDRDSO. 
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DA Extent Processor (ILBDXTNO) [HC] 



Output : The record is read and the track 
address is updated for the next READ. 



Operation : When absolute track addressing 
is used, this subroutine is called to store 
the extent limit information made available 
by an OPEN. A maximum of 7 extents can be 
stored. The Extent Store Area address is 
in DTF-16. 

Linkage : None. The address of this 
subroutine is in the DTE. 

Output : The extent limits are saved. The 
SEEK address is initialized for ILBDDSRO, 
and the first byte of the Extent Store Area 
is initialized to 0. 



DA Sequential READ for Relative Track 
(ILBDRDSO) [HE] 



Operation : This subroutine reads a DA file 
with relative track addressing 
sequentially,. The relative track address 
is initialized at OPEN time by the 
main-line code or, at CLOSE UNIT time, by 
subroutine ILBDRCRO. The address of the 
next record, which has been stored in the 
IDLOC field by the LIOCS module, is stored 
in the track address field. 



The Extent Store Area format is as follows: 

Byte 0: Current extent bucket. It is 
set at CLOSE UNIT time by 
subroutine ILBDCRDO and used 
as an indicator by subroutine 
ILBDDSRO. 

Byte 1: Used by subroutine ILBDXTNO to 
indicate the SYS-number of the 
applicable unit. 

Eytes 2-8: The lower limit of the first 
extent, in the form MBBCCHH. 

Bytes 9-15: The upper limit of the first 
extent, in the form MBBCCHH. 

Bytes 16-n: The lower and upper limits of 
any remaining extents, in the 
same form as the first.. 

Byte n + 1: X^FF', to indicate the end of 
the extent store area. 



DA Sequential Read (ILBDDSRO) [HP] 



Operation : This subroutine reads a DA file 
sequentially when absolute track addressing 
is used. It generates a SEEK address from 
the extent information stored by subroutine 
ILBDXTNO and from the IDLOC returned by 
LIOCS. It utilizes subroutine ILBDIDAO to 
increase the SEEK address by one track. 



Linkage 




L 


1,DTFPTR 


L 


0,A(ACTKEY) (If actual key 




specified) 


SR 


0,0 (If actual key not 




specified) 


L 


15, =V (ILBDDSRO) 


L 


5,A(EOF) 


BALR 


14,15 



Linkaqe : 




L 


1,DTFPTR 


L 


0,A(ACTKEY) (If actual key 




specified) 


SR 


0,0 (If actual key not 




specified) 


L 


15, =V (ILBDRDSO) 


L 


5,A(EOF) 



BALR 14,15 

Output : The record is read and the track 
address is updated for the next READ. 



DA RZERO Record (ILBDFMT0) [HF] 



Operation : When absolute track addressing 
is used, this subroutine writes Record 
onto each track of a DA output file. 



Linkaqe : 



L 
L 
BALR 



1,DTFPTR 

15,=V(ILBDFMT0) 

14,15 



Output : The RZERO record is written. 



DA RZERO for Relative Track (ILBDRFMO) [HG] 



Operation : This subroutine writes Record 
onto each track of a DA output file with 
relative track addressing. 

Linkaqe : 

L 1,DTFPTR 

L 15, =V (ILBDRFMO) 

BALR 14,15 

Output : The RZERO record is written. 
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DA Increase SEEK Address (ILBDIDAO) [HH] 



Operation ; This subroutine increases a 
SEEK address by one track when absolute 
addressing is used. 

Linkage : 

L 1,DTFPTR 

L 15,=V(ILBDIDA0) 

BALR 14,15 

Output : The SEEK address is increased. 



DA READ and WRITE (ILBDDIOO) [HI] 



Operation : When absolute track addressing 
is used, this subroutine reads or writes 
records on random access DTFDA files in 
response to READ or WRITE instructions 
using absolute addressing. It also checks 
for invalid key and input/output errors and 
branches, if necessary, to the appropriate 
procedure. 



Linkage : 

LH 

AH 

L 

L 

L 

BALR 



3,RECSIZE (Undefined and spanned 

records only) 
3,=H'4* (Spanned records only) 
0,A(ACTKEY) 
15, =V (Entry point) 
5,A(INVKEY) 
14,15 



For 'entry point*, substitute as 
follows: 

ILBDDIOO for WRITE AFTER or WRITE key 
(American National Standard and 
DOS/VS COBOL WRITE/REWRITE) 

ILBDDIOl for READ key and SAVE key 

READ (American National Standard and 
DOS/VS COBOL READ) 

ILBDDI02 for READ key 

ILBDDI03 for WRITE key 

ILBDDI04 for WRITE AFTER 

Output : The record is read or written. 



DA READ and WRITE for Relative Track 
(ILBDRDIO) [HJ] 



Linkage: 




LH 


3,RECSIZE 


L 


1,DTFPTR 


L 


0,A(ACTKEY) 


L 


15, =V (entry point) 


L 


5,A(INVKEY) 



BALR 14,15 

For "entry point 1 , substitute as 
follows: 

ILBDRDIO, for WRITE AFTER or WRITE KEY 
(American National Standard and 
DOS/VS COBOL WRITE/REWRITE) 

ILBDRDI1, for READ KEY and SAVE KEY 
READ (American National Standard and 
DOS/VS COBOL READ) 

ILBDRDI2, for READ KEY 

ILBDRDI3, for WRITE KEY 

ILBDRDI4, for WRITE AFTER 



Output : The record is read or written. 



DA Error Routine (ILBDDAEO) [HK] 



Operation : This subroutine handles errors 
on DTFDA files either by setting user error 
bytes (if any) and branching to a user 
error routine, or if there is no user error 
routine, by setting the error code and 
fetching $$BCOBER. If $$BCOBER is fetched, 
an appropriate message is printed on SYSLOG 
and SYSLST. Then, if a dump is not 
required, control returns to ILBDDAEO; if 
it is, $$BPDUMP is called. $$BPDUMP 
provides the dump and returns control to 
ILBDDAEO- If ILBDDBG2 (the STXIT routine) 
is in the load module, control is passed to 
it. If it is not, the job is cancelled. 



Linkage : 



L 
L 
BR 



2,A(DTF-24) 

1 5, =V (ILBDDAEO) 

15 



Output : Register 1 points to the data in 
the error block when exiting to user if 
there has been input data transferred. The 
user error bytes, if any, are set to 
reflect the error condition. 



Operation : This subroutine reads or writes 
records an random access DTFDA files in 
response to READ or WRITE instructions 
using relative track addressing. It also 
checks for invalid key and input/output 
errors and, if necessary, branches to the 
appropriate procedure. 



VSAM DATA MANAGEMENT SUBROUTINES 



The subroutines described below are the 
interface between the IBM DOS/VS COBOL 
object program and the VSAM system control 
subroutines. 
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VSAM Initialization (ILBDINTO) [HL] 



Operation : This subroutine issues the 
GETVIS macro instruction to obtain virtual 
storage for the VSAM File Control Block 
(FCB) associated with each VSAM File 
Information Block (FIB). It initializes 
the FCB to zeros, sets some initial values, 
and stores the address of the FCB in the 
object program's TGT area- It also 
acquires work space for the VSAM 
subroutines. 



Indicate end of 
list. 



MVI SAV3+LASTDISP 

(R13) ,X'80 
LA R1.SAV3JR13) 
L R15,=V(ILBDVOC0) 
BALR R14.15 



Note 1 : See FOPENOPT field of the FCB in 
"Section 3: Data Areas" for bit 
assignments for each option. 

Linkage — For CLOSE Request 

The following code is generated for each 
file to be closed: 



Linkage : 

L 

BALR 
DC 
DC 



R15,V(ILBDINT0) 

R14,R15 

XL2'DISPL IN TGT CF 1ST FIB CELL' 

XL2* NUMBER OF FIB'S* 



Output : Storage is acquired for the VSAM 
FCB and VSAM work space. 



L R1,FIE-CELL(R13) 
ST R1,SAV3+DISP(R13) 
MVC FCL0S0PT(4,R1) , (See Note 1) 
=XL4 ' CLOSE-OPTIONS ■ 

The following code is generated last: 

MVI SAV3+LASTDISP(R13) ,X'80' 

LA R1,SAV3(R13) 

L R15,=V(ILBDV0C1) 

BALR R14-R15 



VSAM Open and Clo se Subroutine (ILBDVOCO) 
tHM] 



Note 1 : See FCLOSCPT field of the FCB in 
"Section 3: Data Areas" for bit 
assignments for each option. 



Operatio n: This subroutine handles all 
VSAM OPEN and CLOSE requests. 

For OPEN, the subroutine fills in FCB 
fields, constructs three control blocks for 
each file to be opened (ACE, EXLST, RPL) , 
and fills in fields in these control 
blocks. It sets up the STATUS KEY and 
RERUN integer and checks the CLOSE option 
for LOCK. If opened OUTPUT, it checks the 
high relative byte address for zero. It 
then branches to the appropriate VSAM 
system control subroutine. 

For CLOSE, the subroutine issues a 
FREEVIS for all space used for the file 
being closed and sets up the STATUS KEY as 
well as the CLOSE options in the FCB. it 
tests for RERUN and, if required, takes a 
checkpoint. It then branches to the 
appropriate VSAM system control subroutine. 



Linkage —For OPEN Request 

The following code is generated for each 
file to be opened: 

L Rl, FIB-CELL (R13) 
ST R1,SAV3+DISP(R13) 
MVC FOPENOPT ( 4, Rl) , 

=XL4* OPEN-OPTIONS' (See Note 1) 
MVC FUSEERR(4,R1) , If USE... ERROR 

USERRPN(R12) Declarative 

The following code is generated last: 



VSAM Action Request Subroutine (ILBDVIOO) 
[HN] 



This subroutine handles all requests for 

START, READ, REWRITE, WRITE, and DELETE 
verbs with VSAM files. 

Each request is routed to the code 
handling the particular verb. This code 
passes the request to VSAM. Upon execution 
of the request, it checks the return code 
from VSAM for errors. Depending on the 
return code and conditions set in the FCE, 
it returns control to the calling 
subroutine. 

For more specific meanings for each of 
the STATUS KEY entries, see the publication 
IBM DOS/VS COBOL Programmer's Guide , Order 
No. SC28-6478. 



Linkage : 

MOVE RECORD- AREA, 
FROM-AREA 



L R4,FIB-CELL(R13) 
L Rl4,return-GN 
MVC FENDINV ( 4 , R4 ) , 
ENDINVGN(R12) 



(If FROM option 
specified for 
WRITE and 
REWRITE) 



(If INVALID KEY, 
AT END, or AT 
ECP specified) 
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LN20-9122 



MVI FRECKEY(R4), 
RECORD-KEY-# 



LH 



R0,=H* RECORD- 
LENGTH' 



or 
LH R0 r RECORD-VLC(R13) 



LA 



RO, KEY- LENGTH 



(If KEY clause 
specified for 
READ and START) 

(If WRITE or 
REWRITE speci- 
fied for fixed 
length record) 

(If WRITE or 
REWRITE speci- 
fied for vari- 
able length rec- 
ord) 

(If START speci- 
fied with key) 



(See Note 1) 
(See Note 2) 

(if INTO option 
for READ) 



L R15,FCOBRTN(R4) 

BALR R1,R15 

DC XL1 ' COMMAND-CODE ' 

DC XL3' OPTIONS' 

MOVE 

L R5, NEXT-sentence GN 

BR R5 

Note 1 : Command Codes- 

( 4=READ, 8=WRITE, 12=REWRITE , 16=START f 20= 

DELETE) 

Note 2 ; Option bytes have the following 
bit information: 



Eyte - 



Bit 


Meaning 





Invalid Key 


1 


At End 


2-5 


Unused 


6 


Next 


7 


Key (For READ or START) 



Byte 1 - Search Condition for START 

Code Meaning 

X'80 1 Greater 

X'UO* Equal 

X'20' Not less 

Byte 2 - X'80' called from ILBDSRTO 



Output : The requested input/output 
instruction is performed. 



ASCII SUPPORT SUBROUTINE 



The subroutine described below handles 
two of the functions necessary for handling 
files written in ASCII code. Other 
functions are handled by code in the COBOL 
program or by subroutine ILBDSPAO. 



Separately Signed Numeric Subroutine 
(ILBDSSNO) [IA] 



Operation : This subroutine is called 
whenever a data-name is involved in an 
arithmetic operation or in certain move 
operations and has a TRAILING SEPARATE 
CHARACTER or LEADING SEPARATE CHARACTER 
clause in the source program. The 
subroutine checks the sign for validity. 
If the sign is not a valid sign, the 
subroutine issues a message and abnormally 
terminates the job. The subroutine has two 
entry points, ILBDSSNO and ILBDSSN1. 

The subroutine is called at entry point 
ILBDSSNO, when an internal decimal number 
is to be produced. It places the proper 
sign in the low-order four bits of the 
receiving byte. 

The subroutine is called at entry point 
ILBDSSN1, when a separately signed external 
decimal number is to be produced. It 
places the proper EBCDIC sign in the 
receiving byte and replaces the converted 
sign in the high-order four bits with a 
X'F" . 



Linkage : 



LA 
LA 
L 
BALR 



0, Sign 

1, Receiving byte 

15,=V(ILEDSSN0) or (ILBDSSN1) 

14,15 



Output : The output of this routine is an 
internal decimal number, or a separately 
signed external decimal number. 
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DIAGNOSTIC AID SUBROUTINES 



Three options are available for 
object-time debugging. These are the 
statement number option (STATE), the flow 
trace option (FLOW), and the symbolic debug 
option (SYMDMP). The subroutines for the 
first two options provide debugging 
information at abnormal termination of a 
program; the subroutines for the third 
option provide debugging information either 
at abnormal termination or dynamically 
during the execution of a program. All of 
the subroutines are under the control of 
and are serviced by the Debug Control 
subroutine (ILBDDBGO). This chapter 
discusses (1) the Debug Control subroutine 
(ILBDDBGO), and (2) the subroutines that 
are called in response to each of the three 
debug options. 

Note : Diagram 6 in "Section 2: Program 
Organization" illustrates the calling 
dependencies among these routines. 



DEBUG CONTROL SUBROUTINE (ILBDDBGO) 

This subroutine is included by the 
linkage editor whenever the CBL control 
card for a program contains at least one of 
the debug options or the COUNT option. It 
is a single CSECT, consisting of eight 
routines and one common area. These are, 
with their entry points: 

• Test routine (ILBDDBGO) 

• Print routine (ILBDDBG1) 

• STXIT routine (ILBDDBG2) 

• TGT Address routine (ILBDDBG3) 

• Save Register 14 routine (ILBDDBG4) 

• Dynamic Dump routine (I1BDDBG5) 

• Range routine (ILBDDBG6) 

• Debug common area (ILBDDBG7) 

• Close Debug File routine (ILBDDBG8) 

The routines are described below. The 
debug common area is described in "Section 
3: Data Areas." 

TEST ROUTINE (ILBDDBGO) [JA] : A call is 
generated to the TEST routine (ILBDDBGO) in 
INIT 3. This routine tests for the debug 
options that have been specified by 



checking bits 4, 5, and 6 of SWITCH in the 
TGT table, or for the COUNT option 
specified through bit 20. 

The subroutine calls FLOW (ILBDFLWO) for 
the flow trace (FLOW) option, and loads and 
branches to SYMINIT (ILBDMP10) for the 
symbolic dump (SYMDMP) option. These 
subroutines perform initialization 
processing for the respective options. The 
initialization process varies for each 
option and is discussed below. 

The TEST subroutine calls the execution 
statistics initialization subroutine 
(ILBDTC00) to begin implementation of the 
COUNT option. 

The TEST routine issues the STXIT macro 
instruction specifying that the STXIT 
routine (ILBDDBG2) is to receive control 
when abnormal termination occurs. It also 
computes the load point for SYMDMP modules 
and issues the LOAD macro instruction to 
load ILBDMP10. ILEDMP10 is then given 
control so that it can read in and, process 
the SYMDMP control cards. 

Diagrams 4 and 5 in "Section 2: Program 
Organization" show the flow of control for 
the Symbolic Dump (SYMDMP) subroutines. 
Diagram 6 shows control flow for the Debug 
Control Subroutine (ILBDDBGO) through five 
levels. 



Linkage : 

L 15,=V(ILEDDBG0) 
BALR 14*15 

If the COUNT option has been specified, the 
following is added: 



DC 



H * number-of - count-blocks * 



Input : Register 13 contains the address of 
the TGT. 



PRINT ROUTINE (ILBDDBGl) [JB] : The PRINT 
routine is called by each of the 
subroutines associated with the debugging 
operations. Its function is to print 
either the debugging information requested 
or any error messages about the debug 
option subroutines themselves. 



Linkage : 



L 
BALR 



15,=V(ILEDDBG1) 
14,15 
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Input : 



1. 



2. 



DBG1C0DE in the coiTiitiunication area in 
ILBDDBGO module. This code indicates 
to ILBDDBG1 how the output is to be 
printed. 

Buffer, containing information to be 
written on SYSLST. 



Output : 

1. Register 2 contains the address of the 
next buffer. 

2. A line of output on SYSLST. 

STXIT ROUTINE (ILBDDBG2) [JC] : This 
routine gets control from the system when 
an abnormal termination has occurred. This 
routine may also get control from a COBOL 
library I/O module when a termination type 
of error is recognized. It traces all 
COBOL programs in the run unit. 

For those programs compiled with the 
COUNT option, the STXIT routine calls 
subroutine ILBDTC20 to write execution 
statistics on SYSLST. For those that are 
compiled with SYMDMP, STATE, or FLOW 
options, the subroutine calls the 
corresponding subroutines to record the 
reguested debugging information. 

Therefore, if the interrupted program 
was itself called by another program in the 
same load module, the STXIT routine also 
supervises debugging operations for the 
calling program if one of the debug options 
has been specified for that program. It 
uses data area FIRST-LAST, for this purpose 
(see "TGT Address routine (ILBDDBG3) ) ". 
The debugging operations are completed when 
the highest level calling program which has 
been compiled with a debug option (SYMDMP, 
STATE, or FLOW) has been given debug 
information. Diagram 6 shows the control 
flow for the STXIT routine through five 
levels. Diagram 11 in "Section 2: Program 
Organization" shows the doubleword 
data-area (FIRST-LAST) which is used to 
trace the COBOL programs at abnormal 
termination. 

Linkage : 

This routine is given control directly from 
the System at abnormal termination. It 
returns to the System by issuing an EOF 
macro instruction. 

Input ; STXIT save area, containing the PSW 
and registers 0-15 at the time of abnormal 
termination. 

T GT ADDRESS ROUTINE (ILBDDBG3) [JC] : The 
TGT Address routine (ILBDDBG3) is called by 
the COBOL program following the return of 



control to the COBOL program after a branch 
outside the current program. The TGT 
Address routine stores in a fullword 
(LAST) , the address of the current TGT upon 
return from a called program. This data 
area is used by the STXIT routine at 
abnormal termination to trace the calling 
programs of an interrupted program so that 
debugging information may be provided for 
each of them. Diagram 11 in "Section 2: 
Program Organization" shows the pointer 
connections between the FIRST-LAST data 
area and the TGT* s of the programs that are 
link edited together. 



Linkage : 



L 
BALR 



15,=V(ILBDDBG3) 
14,15 



Input : Register 13 contains the address of 
the current TGT. 

SAVE REGISTER 14 ROUTINE (ILBDDBG4) [JC3 : 
The Save Register 14 routine (ILBDDBG4) is 
called by the COBOL program just before any 
instruction which passes control outside 
the COBOL program. It stores the address 
of this instruction. If an abnormal 
termination occurs and the PSW points 
outside the current COBOL program, it is 
this address and not the PSW address that 
is used to determine the number of the 
source statement that caused the program 
error. 



Linkage : 



L 
BALR 



15,=V(ILBDDBG4) 
14,15 



Input : Register 14 contains the address of 
the instruction that transfers control 
outside the current program. 

DYNAMIC DUMP ROUTINE (ILBDDBG5) [JD] : The 
function of this routine is to signal 
SYMDMP that a dynamic dump is to be given. 
Upon return from SYMDMP, register 10 
contains the address of the instruction 
that was overlaid with the BALR instruction 
that called ILBDDBG5. (See "Program 
Modification" under "Symbolic Dump (SYMDMP) 
Subroutine".) The overlaid instruction is 
then executed and control is returned to 
the COBOL program. 



Linkage : 



L 
BALR 



15,=V(ILBDDBG5) 
14,15 



Input : 

1. Register 3 contains the TGT address. 

2. Upon return from SYMDMP, register 10 
points to the instruction that was 



4 6 Debug Control Statements 



Licensed Material - Property of IBM 



overlayed with the BALR instruction 
that invoked ILBDDBG5. 

RANGE ROUTINE ( ILBDDBG6) [ JE] : This routine 
is called from the GOBACK code. Its 
function is to indicate that a branch 

(GOBACK) to a program that is higher than 
the highest COBOL program compiled with 
SYMDMP, STATE, or FLOW has been taken- 
Such a program is outside the range of the 
Debug Control Subroutine. That is, an 
abnormal termination in such a program will 
be intercepted by the STXIT routine 

(ILBDDBG2). The STXIT routine's only 
function in this case is to issue the EOJ 
macro instruction. 

Linkage : 

L 15,=V(ILBDDBG6) 
BALR 14,15 

Input ; Register 13 contains the current 
TGT address. 

C LOSE DEBUG FILE ROUTINE (ILBDDBG8) [JE] : 
This routine is called by ILEDTC20 to close 
the debug file when object-time execution 
statistics have been written, but there are 
no debugging options specified. 

Called by : ILBDTC20 

Linkage : 

L 15,=V(ILBDDBG8) 
BALR 14,15 

Calls : $$BCLOSE 

Input : None 

Output : DTF closed 



SUBROUTINES FOR THE DEBUG OPTIONS (STATE, 
FLOW, SYMDMP) 



The statement number (STATE) and flow trace 
(FLOW) options each require a separate 
subroutine. They are the Statement Number 
subroutine (ILBDSTNO) and the Flow Trace 
subroutine (ILBDFLWO). The symbolic dump 
option (SYMDMP) requires a subroutine made 
up of 13 modules or phases, whose entry 
point from the Debug control Subroutine is 
ILBDMP10. 

The debugging information provided by 
the Statement Number subroutine (ILBDSTNO) 
consists of the number of the COBOL 
statement and the number of the verb within 



the statement being executed when abnormal 
termination occurred™ The debugging 
information provided by the Flow Trace 
subroutine (ILBDFLWO) consists of the 
source card numbers that represent the 
COBOL procedures executed before abnormal 
termination occurred- 

When a dynamic dump is requested, the 
Symbolic Dump subroutines provide a 
formatted symbolic dump of specified areas 
of the Data Division just prior to the 
execution of each of the specified COBOL 
statements. When SYMDMP is specified, the 
symbolic dump subroutines provide at 
abnormal termination a formatted symbolic 
dump consisting of the following parts: 

1. an abnormal termination message 
identifying the source statement 
causing the error, 

2. selected areas in the TGT, and 

3. all the data items from the Data 
Division. 



STATEMENT NUMBER SUBROUTINE (ILBDSTNO) [JF] 



Operation : When the subroutine receives 
control from the STXIT routine (ILBDDBG2) 
at abnormal termination, it provides the 
number of the CCBOL statement and the 
number of the verb within the statement 
that was being executed when abnormal 
termination occurred. If abnormal 
termination occurs during execution of an 
instruction outside of the COBOL program, 
the statement number that is provided is 
that of the last COBOL statement executed. 
The subroutine uses the information stored 
by the Save Register 14 routine (ILBDDBG4) 
for this purpose. The subroutine calls the 
PRINT routine (ILBDDBG1) to write the 
debugging information on SYSLST. 

This subroutine is called from the STXIT 
routine (ILBDDBG2) using the following 
sequence: 

L 15„=V( ILBDSTNO) 
BALR 14,15 

Input : Register 13 points to the 
communication area in the Debug Control 
Subroutine (ILBDDBGO) from which the 
address of the current TGT and other 
information can be obtained. 



Output ; 
SYSLST. 



Statement number message on 
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FLOW TRACE SUBROUTINE (ILBDFLWO) [JG] 



SYMBOLIC DUMP (SYMDMP) SUBROUTINE [JH] 



Operation : This subroutine is entered at 
entry point ILBDFLWO by the TEST routine 
(ILBDDBGO) for initialization and at entry 
point ILBDFLW2 by the STXIT routine 
(ILBDDBG2) at abnormal termination. It is 
also called at entry point ILBDFLW1 by 
compiled code upon encountering each COBOL 
PN. Calls are not generated for dummy PNs. 
When the subroutine is called for 
initialization at entry point ILBDFLWO, it 
obtains the address of the area allocated 
for the flow trace table. The number of 
traces specified by the user is a factor in 
determining the table size at compile time. 
This table is at a fixed displacement in 
the TGT of the COBOL program. After 
initialization each time that the 
subroutine receives control from the COBOL 
program, it inserts the executing program's 
8-character Program Identification as well 
as the card number of the current COBOL 
Procedure into the next available position 
in the table. The address of the next 
available position in the table is stored 
at location NXTAVL. Pointers for physical 
end (PEND) and logical beginning (LBEG), 
which indicates table wraparound, are also 
employed and are located just before the 
8 0-byte PROGRAM- ID area of the table. 



When the end of the table is reached, 
location NXTAVL points once again to the 
beginning of the table; and subsequent 
entries into the table overlay previous 
entries. The procedure is repeated until 
the end of the main COBOL program or until 
abnormal termination. If abnormal 
termination occurs, the subroutine receives 
control from the STXIT routine; and it 
calls the PRINT routine (ILBDDBGl) to print 
each entry of the table beginning with the 
earliest entry. 



Linkage : 



From the TEST routine (ILBDDEGO) 



L 15,=V( ILBDFLWO) 
BALR 14,15 

From compiled code: 

L 15,=V(ILBDFLW1) 
BALR 14,15 

From the STXIT routine (ILBDDBG2) 

L 15,=V(ILBDFLW2) 
BALR 14,15 



The symbolic dump subroutine, referred to 
mnemonically as SYMDMP, consists of 13 load 
modules or phases. Of these, two (ILBDMP01 
and ILBDMP02) service I/O requests for the 
remaining modules; five (ILBDMP10 through 
ILBDMP14) constitute what is here termed 
Pass 1; and six (ILBDMP20 through ILBDMP25) 
constitute Pass 2. The first digit in the 
load module name identifies the pass, the 
second digit the module within the pass. 

The 13 modules of SYMDMP are arranged in 
an overlay structure under the control of 
SYMDMP itself, with the modules of Pass 2 
overlaying those of Pass 1 after 
initialization is complete. (See Diagrams 
3 and 7 in "Section 2: Program 
Organization. " 

PASS1 : The function of Pass 1 is to scan 
control cards and translate them into 
tables for the use of Pass 2. Pass 1 is 
entered during INIT3 before execution of a 
program compiled with the SYMDMP option or, 
when several programs compiled with the 
SYMDMP option have been link edited 
together, before execution of the first 
program. Pass 1 is entered only once per 
run unit. 



PASS 2: 



The function of Pass 2 is to 



produce the output requested by the control 
cards. After Pass 2 has overlaid Pass 1, 
it is present during the entire run and may 
be entered many times. Pass 2 may be 
entered at the following times: 

• During INIT3 before execution of each 
program 

• Before each entry to any independent 
program segment 

• At abnormal termination 

• Each time a dynamic dump request is to 
be satisfied. 

COMMON DATA AREA : The SYMDMP modules 
communicate with one another by means of a 
block of cells initialized by Pass 1 and 
kept intact (not overlaid) when control is 
turned over to Pass 2. Register 12 is 
reserved in all modules as the base 
register for this area. The first portion 
of the common data area contains four 
standard register save areas, and data 
needed by both passes. The data needed by 
both passes include: addresses of tables; 
addresses of buffers; cells used by the two 
I/O modules; information about storage 
allocation; etc. The second portion 
contains data used to communicate between 
the modules of either pass, but not between 
the passes. This includes: load addresses 
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for the modules of the pass; addresses of 
the table entries currently being 
processed; parameters for subroutines; etc. 



OBJECT-TIME TABLES : Three tables are built 
in Pass 1 to facilitate communication among 
the modules of SYMDMP. These are: 

• The PCONTROL table, which contains one 
entry for each program in a run unit; 
it preserves information about the 
program's debug file, the 
program-control card options, the other 
tables, and critical locations in the 
COBOL program itself. 

• The DYNAMTAB table, which contains one 
entry for each dynamic dump request; it 
preserves card/verb number, virtual 
storage location and machine 
instruction corresponding to the 
request, and pointers which are used to 
locate on the debug file the data-names 
specified. 

• The DATADIR table, which is an index to 
the blocks of the debug file that are 
needed for dynamic dumping. 

For detailed descriptions of the PCONTROL, 
DYNAMTAB, and DATADIR tables, see "Section 
3: Data Areas." 

INPUT : SYMDMP receives information from 
four sources external to itself: 

• The communication area of ILBDDBGO, 
containing, in particular, in LAST the 
address of the COBOL program's TGT. 

• The COBOL program's TGT and INIT1 
cells, its instructions, and its Data 
Division. 

• The control cards on SYSIPT. 

• The debug file built by the COBOL 
compiler. 

Control cards : There are two types of 
control cards, program- control and 
line-control- 

Each program for which any SYMDMP 
service is requested must be identified by 
a program-control card. PROGRAM- ID, debug 
file information, the ENTRY option, and the 
HEX option for abnormal termination dumps 
are specified on this card. Each dynamic 
dump request is identified by a 
line-control card. Card/verb number, the 
Data Division items to be dumped, and the 
ON and local HEX options are specified on 
this card. 

The SYMDMP control cards are described 
in detail in the publication IBM DOS/VS 



COBOL Compiler and Library Programmer's 
Guide , Order No. SC28-6478. 

Debug File : When the SYMDMP option is 
specified on the CBL card. Phases 25 and 65 
of the compiler create a file for use by 
SYMDMP at object time- The file contains 
information about the items of the Data 
Division and about the location of the 
machine instructions corresponding to each 
Procedure Division source statement. 

The program-control card identifies the 
debug file for SYMDMP at object time by 
specifying device type (MT or SD) , logical 
unit number, and, for a disk file, 
filename. These three items of information 
are saved in the PCONTROL table. Device 
type is used to determine which of the two 
I/O modules to invoke; logical unit number 
and file-name are stored in the DTF before 
the file is opened. Thus, the single DTF 
contained in each of the I/O modules can 
serve any number of files used one at a 
time. 

The format and contents of the debug 
file are described in "Data Areas" under 
"Program Organization". Diagrams 8* 9, and 
10 in "Section 2: Program Organization" 
show the relations between the debug file 
and the object-time tables. 

OUTPUT : SYMDMP generates the following 
types of information: 

• Output on SYSLST consisting of: a copy 
of all control cards; diagnostic 
messages; dynamic dumps; the abnormal 
termination statement number message; 
the complete abnormal termination dump 

• Modifications to the COBOL program in 
virtual storage if dynamic dumping is 
requested for the program 

Program modification : The mechanism by 
which SYMDMP intervenes in the COBOL 
program to produce a dynamic dump is as 
follows: 

Pass 1 searches the Procedure Division 
tables of the debug file for the specified 
card number. It stores, in the DYNAMTAB 
entry for the card, the address (relative 
to the beginning of the Procedure Division 
or of the transient area) of the 
corresponding instruction. 

Pass 2 # when entered during INIT3, 
relocates this address to its true current 
value and saves the instruction itself in 
the DYNAMTAB entry. The first two bytes of 
the instruction in virtual storage are then 
replaced with BALR 0,12, that is, a branch 
to the PGT. Since, in a program compiled 
with the SYMDMP option, the first cells of 
the PGT contain a call to ILBDDEG5, the 
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effect is to invoke SYMDMP each time 
control flows through the modified 
instruction. 

After it has issued the requested dumps, 
SYMDMP returns to ILBDDBG5 the address of 
the DYNAMTAB cell which contains the saved 
original instruction. This instruction is 
executed in ILBDDBG5 before control is 
returned to the following instruction in 
the program. (Note that when abnormal 
termination occurs, SYMDMP restores the 
original instruction to the program so 
that, if the user obtains a system dump, 
the dump will reflect the COBOL program as 
it was compiled. ) 



ILBDMP02 (IOTAPE) - 



2. Pass 1 modules: 



ILBDMP10 (SYMINIT) - 



ILBDMP11 (SCANP) - 



ILBDMP12 (SCAND) - 



I/O operations 
for a debug file 
on tape. 



initialization 
and Pass 1 
control. 

program-control 
card scan. 

line-control 
card scan. 



LINKAGE TO SYMDMP: 



ILBDMP13 (FINDNAMS) - 



resolution of 
identifiers. 



L 15„=A(ILBDMP10) (See Note A.) 

BALR 14,15 

DC H'n' (See Note B.) 



ILBDMP14 (FINDLOCS) - 



resolution of 
card/verb 

numbers. 



Note A : the address is computed by 
ILBDDBGO before the first call to SYMDMP. 

Note B : 

' n' = in a call for initialization 
from ILBDDBGO 
= 4 in a call for dynamic dumps 

from ILBDDBG5 
= 8 in a call for abnormal 

termination dumps from ILBDDBG2 



3. Pass 2 modules: 

ILBDMP20 (SYMCNTRL) - Pass 2 control. 

ILBDMP21 (SEGINIT) - program and 

segment 
initialization. 

ILBDMP22 (DMPCNTRL) - control for the 

two dump 
modules. 



Processing (Sequence of Events) 



The sequence of events when SYMDMP 
services are requested for a run unit is, 
in general, as follows: 

• Initialization for the first COBOL 
program in a run unit 

• Initialization for all other COBOL 
programs in a run unit 

• Initialization for independent program 
segments 

• Processing for dynamic dump requests 

• Processing for abnormal termination 
dumps 

The load names, mnemonic names, and 
functions of the individual SYDMP modules 
are as follows: 

1. I/O modules: 



ILBDMP23 (DUMP1) - 



ILBDMP24 (DUMP 2) - 



group and 
elementary item 
dump. 

FD, SD ff RD, VSAM 
FD, and TGT dump 



ILBDMP25 (SYMSTATE) - abnormal termi- 
nation statement 
number 
processing. 

The overlay structure and the hierarchy 
of loading responsibility are detailed in 
Diagrams 3 and 7 in "Section 2: Program 
Organization. " The flow of control among 
the modules of Pass 1 and Pass 2 is shown 
in Diagrams 4 and 5, respectively. The 
operation of the individual modules is 
summarized in "Processing (Routines)" in 
this chapter. 



INITIALIZATION - FIRST COBOL PROGRAM : 
During INIT3 of the first program 
encountered with the SYMDMP option, 
ILBDDBGO loads and calls ILBDMP10 
(SYMINIT). 



ILBDMP01 (IODISK) - I/O operations 

for a debug file 
on disk. 



SYMINIT initializes the common data 
area and reads the first 
program-control card. 
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2„ SYMINIT loads and calls SCANP. 

3. SCANP builds the PCONTROL table, reads 
the next card, and returns to SYMINIT. 

4. If the card starts with a number 
(line-control card) , SYMINIT loads and 
calls SCAND; otherwise, SYMINIT skips 
to step 11 below. 

5. SCAND builds the DYNAMTAB table; 
collects data-names in the QUALNAMS 
area for the batch search of the debug 
file; reads the next card and, if it 
starts with a number, repeats the 
process. 

6., SCAND loads and calls FINDNAMS, 
overlaying itself. 

7.. FINDNAMS searches the debug file for 
names collected in the QUALNAMS are 
and fills in identifier information in 
the DYNAMTAB table; FINDNAMS then 
loads and returns to SCAND, overlaying 
itself. 

8- SCAND enters DYNAMTAB and DATADIR 
pointers in the PCONTROL table, and 
returns to SYMINIT. 

9.. SYMINIT loads and calls FINDLOCS.. 

10.. FINDLOCS searches the debug file for 
addresses corresponding to card/verb 
numbers and enters these in the 
DYNAMTAB table, FINDLOCS then returns 
to SYMINIT. 



2. SYMCNTRL loads and calls SEGINIT. 



3„ SEGINIT, by analyzing PROGRAM-ID, 
determines that a fresh program is 
being entered. 

4. SEGINIT stores ACURPC (pointer to the 
current PCONTROL entry) and frequently 
referenced addresses in COEOL program; 
SEGINIT also saves the root segment 
priority of zero. 

5- If this is the first time that SEGINIT 
has been entered (that is, SEGINIT has 
been entered from SYMINIT) , and the 
DYNAMTAB table exists for any program 
in the entire run unit, SEGINIT 
computes the load addresses for 
DUMP1/DUMP2, IODISK/IOTAPE, and the 
debug file buffers. 

6. If there is no DYNAMTAB table for the 
current program, SEGINIT skips to step 
8 below., 

7. SEGINIT loads and calls IODISK or 
IOTAPE to open the debug file; 
relocates addresses in the PCONTROL 
and DYNAMTAB tables; saves the 
original instructions and modifies 
them in virtual storage to effect 
calls to SYMDMP for dynamic dumping. 

8. SEGINIT returns to SYMCNTRL. 

9. SYMCNTRL returns to ILBDDBGO. 



11.. If end-of-file has not bee reached on 
SYSIPT, SYMINIT returns to step 2 
above. 

12. At end-of-file, SYMINIT calculates the 
total size of SYMDMP for the rest of 
the run unit and stores this value in 
the ILBDDBGO cell SYMSIZE for use by 
the SORT subroutine; SYMINIT also 
stores information in the common data 
area for use by the Pass 2 space 
allocation routines. 

13. SYMINIT loads ILBDMP20 overlaying 
itself and transfers to Pass 2; 
ILBDMP20 continues normal 
initialization processing. (See 
Initialization - All Other COBOL 
Programs. " ) 

I NITIA LI ZATION - ALL OTHER COBOL PROGRAM S : 
During INIT3 of all COBOL programs after 
the first, , ILEDDBGO calls SYMDMP at its 
original address, which is now occupied by 
ILBDMP20 (SYMCNTRL) . 

1. SYMCNTRL analyzes the calling 

parameter and determines that it has 
been called for initialization. 



INITIALIZATION - INDEPENDENT PROGRAM 
SEGMENT : Before entry to an independent 
program segment, ILBDDEGO calls SYMDMP at 
ILBDMP20 (SYMCNTRL). 

1. SYMCNTRL analyzes the calling 
parameter and determines that it has 
been called for initialization. 

2. SYMCNTRL loads and calls SEGINIT. 

3. SEGINIT„ by analyzing the PROGRAM-ID, 
determines that the program is the 
same program as at the previous entry. 

4„ SEGINIT compares the priority in the 
TGT with the saved priority; if they 
are equal, SEGINIT skips to step 7 
below. 

5. SEGINIT saves the new priority; then, 
if there is no DYNAMTAB table for the 
program, SEGINIT skips to step 7 
below. 

b. SEGINIT saves and modifies 
instructions in the current 
independent segment to effect calls to 
SYMDMP for dynamic dumps. 
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7., SEGINIT returns to SY1YCNTRL. 

8. SYMCNTRL returns to ILBDDBGO. 

DYNAMIC DUMP REQUEST ; ILBDDBG5, called 
through the program modifications made by 
SYMDMP (see step 7 under "Initialization - 
All Other COBOL Programs," step 6 under 
"Initialization - Independent Program 
Segment" and "Program Modification" under 
"Output" above) , calls SYMDMP at ILBDMP20 
(SYMCNTRL). 

1„ SYMCNTRL analyzes the calling 

parameter and determines that it has 
been called for dynamic dumps. 

2. SYMCNTRL loads and calls DMPCNTRL. 

3- DMPCNTRL searches the DYNAMTAB table 
for all entries with current priority 
and address fields which match the 
value of register in the COBOL 
program; stores the instruction 
address for ILBDDBGO; updates and 
analyzes ON counters (if any) for the 
entries to determine if a dump is 
required at this execution of the 
COBOL statement specified on the 
line-control card. If no dump is 
required, DMPCNTRL skips to step 9 
below; otherwise, DMPCNTRL gets the 
first (or only) active DYNAMTAB entry 
for the current request. 

4. DMPCNTRL determines from the DYNAMTAB 
entry the limits of the dump 
requested; and gets the dump's 
starting item from the DATATAB table 
on the debug file. 

5. DMPCNTRL loads and calls DUMPl if the 
item is a group or elementary item; 
otherwise, DMPCNTRL loads and calls 

DUMP 2. 

6- DUMPl analyzes the item's attributes 
which are contained in the DATATAB 
entry and issues a formatted dump of 
its contents in virtual storage; gets 
the next DATATAB entry. If it is 
beyond the limits of the requested 
dump, DUMPl returns to DMPCNTRL; if 
itis a group or elementary item, DUMPl 
repeats the process described above; 
if it is other than a group or 
elementary item, DUMPl requests 
DMPCNTRL to load and transfer control 
to DUMP2 to process the item. 

Similarly, DUMP2 dumps information 
about FD, RD, SD, or index items; and 
gets the next DATATAB entry. If it is 
beyond the limits of the requested 
dump, DUMP2 returns to DMPCNTRL; if it 
is a group or elementary item, DUMP2 
requests DMPCNTRL to load and transfer 
control to DUMPl. 



7.. When DUMPl or DUMP2 returns after 

satisfying a dump request, DMPCNTRL 
examines the current DYNAMTAB entry; 
if it specifies further identifiers 
for the same card/verb number, 
DMPCNTRL returns to step 4 above. 

8„ DMPCNTRL continues the search of the 
DYNAMTAB table for further entries of 
equal address and priority; when it 
finds any such entries, it returns to 
step 4 above. 

9„ DMPCNTRL returns to SYMCNTRL. 

10. SYMCNTRL returns to ILBDDBG5. 

ABNORMAL TERMINATION ; ILBDDBG2 calls 
SYMDMP at entry point ILBDMP20 (SYMCNTRL) 
to produce abnormal termination dumps for 
the abnormally terminating program, and, on 
subsequent calls, for all other SYMDMP- 
compiled programs encountered in its 
backward chain to the main COBOL program. 

1- SYMCNTRL analyzes the calling 

parameter and determines that it has 
been called for abnormal termination 

dumps . 

2. The BOMB switch is turned on. 

3„ SYMCNTRL loads and calls SEGINIT. 

4. SEGINIT, finding BOMB on, performs 
special abnormal termination 
processing: examines all DYNAMTAB 
entries in the run unit and restores 
the modified instructions to their 
original state; if the run unit 
included no dynamic dumping requests, 
searches all PCONTROL entries for a 
record of Procedure Divisions large 
enough to be overlaid by as yet unused 
SYMDMP modules (DUMP1/DUMP2, 
IODISK/IOTAPE, and debug file 
buffers) ; may also use SORT and 
DISPLAY subroutines if present; as a 
last resort may use space remaining 
between end of tables and end of 
partition. 

5. SEGINIT loads and calls IODISK or 
IOTAPE to open (or "rewind") the debug 
file; and relocates addresses in the 
PCONTROL table if the entry has never 
been used. 

6. SEGINIT returns to SYMCNTRL. 

7- SYMCNTRL loads and calls SYMSTATE. 

8- If the STATEOUT switch is on, SYMSTATE 
skips to step 9 below, since the 
statement number message is only 
produced for an abnormally terminating 
program; otherwise, SYMSTATE turns on 
STATEOUT; gets the address in 
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9. 

10. 
11. 



ILBDDBGO's STXIT program status word 
(PSW), or,„ if this is not within the 
program's limits, gets the contents of 
register 14„ which were saved by 
ILBDDBG4; uses this address to search 
Procedure Division tables of the debug 
file; identifies the most closely 
matching card/verb number and issues 
the statement number message. 

SYMSTATE returns to SYMCNTRL. 

SYMCNTRL loads and calls DMPCNTRL. 

DMPCNTRL, finding BOMB on, sets the 
dump limit at the last entry in the 
DATATAB table; turns A11SW on; and 
gets the first entry in the DATATAB 
table. 



Note : 'nn* = 00 to open 
04 to read 

08 to point before reading 
12 to close 



Output : Address of current debug file 
buffer is returned in register 3 and in 
ADBGBUF. If note was requested, block 
identification is returned in NOTEADR. 

Calling Information : Called by the SCAND, 
FINDLOCS, and FINDNAMS subroutines in Pass 
1, and by the SEGINIT, DMPCNTRL, and 
SYMSTATE subroutines in Pass 2. It 
overlays IOTAPE. 



12„ DMPCNTRL loads and calls DUMP2. 

13.. DUMP2 dumps the TGT and returns to 
DMPCNTRL. 

14.. DMPCNTRL loads and calls either DUMP1 
or DUMP2 depending on the attributes 
of the initial DATATAE item (see step 
5 under "Dynamic Dump Request"). 

15. DUMP1 and DUMP2 jointly dump the 
virtual storage contents of all 
DATATAB items (see step 6 under 
"Dynamic Dump Request"). 

16. DUMP1 returns to DMPCNTRL after 
dumping the final Data Divisiion entry 
in the DATATAB table. 

17- Since ALLSW is on„ indicating that the 
entire Data Division has been dumped, 
there can be no further dump request 
to fill and DMCNTRL returns to 
SYMCNTRL. 

18. SYMCNTRL returns to ILBDDBG2. 



Processing (Routines) 



IODISK (ILBDMP01) [JI] 



Operation : Contains DTFSD, SDMOD, and 
routines to open, close, read, read and 
note, point and read, for a debug file on 
disk. 



Linkage : 



L 

LA 

LOAD 



15,AIOMOD 
1,='ILBDMP01* 
(1), (15) 



BALR 14,15 



DC 



H'nn* (See note. ) 



IOTAPE (ILBDMP02) [JI] 



Operation : Identical with IODISK 
(ILBDMP01) except that it contains DTFMT 
and MTMOD for a debug file on tape. 

Linkage : Identical with IODISK (ILBDMP01) 
except that the loadname is 'ILBDMP02*. 

Output : See IODISK (ILBDMP01) . 

Calling Information : See IODISK 
(ILBDMP01). 



SYMINIT (ILBDMP10) [JJ-JK] 



Operation : Controls Pass 1 operations; 
contains 3 common subroutines (CALLFIND, 
ERROR, and READIPT) for Pass 1 modules. 

Linkage : 

L 15,„=A(ILBDMP10) 
BALR 14,15 
DC H*00' 

Output : Table addresses and virtual 
storage limits are passed in common data 
area to Pass 2. SYMSIZE cell is set in 
ILBDDBG0 for use by the SORT subroutine. 

Calling Information : Called by ILBDDBG0 
during INIT3 of the first program compiled 
with the SYMDMP option. It is overlaid by 
SYMCNTRL (ILBDMP20) after completion of 
Pass 1. 



CALLFIND (COMMON PASS 1 SUBROUTINE 
CONTAINED IN SYMINIT) 

Operation : Effects linkage between SCAND 
and FINDNAMS. 
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Linkage : 

L 15,ACALLFND 
BALR 14,15 

Output ; None. 

Calling Information : Called by SCAND when 
the DYNAMTAB table is complete. 

ERROR (COMMON PASS 1 SUBROUTINE CONTAINED 
IN SYMINIT) 



Operation : Issues Pass 1 error messages. 

Linkage : 

MVI ERR, message-number 
L 15 r AERROR 
BALR 14,15 

Output : Error message on SYSLST. 

Calling Information : Called by SYMINIT, 
SCANP, SCAND, FINDNAMS, and FINDLOCS. 

READIPT (COMMON PASS 1 SUBROUTINE CONTAINED 
IN SYMINIT) 



Operatio n: Reads and calls ILBDDBGl to 
list control card on SYSIPT; scans card. 

Linkage : 

L 15,AREADIPT 
BALR 14,15 

Output : 

Current input card in INBUF; 

AELM, address of start of element; 

COL, card column of start of next 

element; 

LEN, length of element; 

EOCSW, on if no more elements on card; 

EOFSW, on if end-of^file found; 

NUMSW, on if element is number; 

PARENSW, on if element starts with 

left parenthesis. 

Calling Information : Called by SYMINIT, 
SCANP, and SCAND. 



SCANP (ILBDMP11) [JL] 



Operation : Calls the READIPT subroutine of 
SYMINIT to scan program-control card; 
builds the PCONTROL table entry. 

Linkage : 



L 


0,ASCANP 


L 


1,='ILBDMP11' 


LOAD 


(1),(0) 


BALR 


14,1 



Output : PCONTROL entry and its pointer 
ACURPC, NXTBYTE, free area pointer, updated 
to byte following this entry. 

Calling Information : Called by SYMINIT 
when program- control card has been found. 
Overlays QUAINAMS area used by SCAND and 
FINDNAMS. 



SCAND (ILBDMP12) [JM] 



O peration : Calls the READIPT subroutine of 
SYMINIT to scan line-control card; reads 
the next card and scans until it comes to a 
card which does not start with a 
card-number. Builds a DYNAMTAB entry for 
each line-control card. Collects 
data-names specified in QUALNAMS area. 
Reads in the first block of the debug file. 



Linkage : 



L 
L 

LOAD 
BALR 



0, A SCAND 
1,=" ILBDMP12* 
(1), (0) 
14,1 



Output : DYNAMTAB table with fields to be 
completed by FINDNAMS and FINDLOCS. 
QUALNAMS area containing all names 
requested on line- control cards. Pointers 
to the DYNAMTAB and DATADIR tables in the 
PCONTROL table. NXTBYTE cell updated to 
byte following last DYNAMTAB entry. 

Calling Information : Called by SYMINIT 
when card starting with a number is found 
by SCANP. Overlays FINDNAMS and FINDLOCS. 



FINDNAMS (ILBDMP13) [JN] 



Operation : Searches the DATATAB table on 
the debug file for identifiers collected in 
the QUALNAMS area. Builds the DATADIR 
table containing block identification for 
each distinct DATATAB block required. 
Enters the table locators for identifiers 
in the DYNAMTAB table. 



Linkage : 



L 
L 

LOAD 
BALR 



0,ASCAND 
l^'ILBOMPO' 
(1), (0) 
14,1 



Output: Locators in the DYNAMTAB table, 
which permit Pass 2 to point directly, 
without search, to the requested data-names 
in the debug file. NXTBYTE cell updated to 
byte following last DATADIR entry. 
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Calling Information : Called by SCAND via 
CALLFIND subroutine in SYMINIT when last 
line-control card for prograrr has been 
scanned. Overlays SCAND and FINDLOCS. 



Note : Caller places address in ADTODUMP 
and length in LENTODMP; places desired 
starting column for address in ADCOL and 
desired starting column for contents in 
CORECOL. If address is to be printed, 
caller turns on PRINTLOC switch. 



FINDLOCS (ILBDMP14) [JO] 



Operation : Searches the PRCCTAB table on 
the debug file for the card/verb numbers 
specified on line-control cards. Enters 
corresponding relative addresses in the 
DYNAMTAB table. 



Linkage : 



L 
L 

LOAD 
BALR 



0, SCAND 

1, = , ILBDMP14" 

(1),(0) 

14,1 



Output : Priority and relative address 
fields in the DYNAMTAB table. 

Calling Information : Called by SYMINIT 
when SCAND returns to it with DTABOK switch 
on. Overlays SCAND and FINDNAMS. 



Output : Hexadecimal dump on SYSLST. 

Calling Information : Called by DUMP1 and 
DUMP 2. 



SEGINIT (ILBDMP21) [JR] 



Operation : Opens the debug file; reads the 
OBODOTAB table into virtual storage; 
relocates table addresses; initializes 
virtual storage for dynamic dumping; 
performs space allocation at abnormal 
termination. 



Linkage : 

L 

LA 

LOAD 
BALR 



2,ASEGINIT 
l f = q ILBDMP21' 
(1), (2) 
14,2 



SYMCNTRL (ILBDMP20) [JP-JQ] 



Operation : Controls Pass 2 processing. 
Contains 1 common subroutine (HEXDUMP) for 
Pass 2 modules. 



Linkage : 



L 

BALR 

DC 



15„=A(ILBDMP10) 

14,15 

H'n* (See note.) 



Output : Program modifications for dynamic 
dump calls. The pointer contained in 
ACURPC is updated to the current PCONTROL 
entry. LASTSEG is updated to contain the 
current priority. 

Calling Information : Called by SYMCNTRL 
for initialization and in the event of an 
abnormal termination. Overlays DMPCNTRL 
and SYSMSTATE. 



Note : *n* = for initialization 
4 for dynamic dump 
8 for abnormal termination 

Output : BOMB switch is turned on in the 
event of an abnormal termination. This 
switch is checked by SEGINIT and DMPCNTRL. 

Calling Information : Called by ILBDDBGO, 
ILBDDBG5, and ILEDDBG2. Overlays SYMINIT. 

HEXDUMP (COMMON PASS 2 SUBROUTINE CONTAINED 
I N SYMCNTRL) . 

Operation : Calls ILBDDBGl to print 
hexadecimal dumps. 



Linkage : 



L 
BALR 



15„AHEXDUMP 
14-15 



DMPCNTRL (ILBDMP22) tJS-JT] 



Operation : Controls dumping, identifies 
current dynamic request in the DYNAMTAB 
table, and provides service and control for 
DUMP1 and DUMP2. Contains 2 subroutines 
(CALLD1D2 and NXTENTRY) common to DUMP1 and 
DUMP2™ 



Linkage : 



L 

LA 

LOAD 

BALR 



2,ASEGINIT 
1, = 'ILBDMP22 ,, 
(1), (2) 
14,2 



Output : Heading line on SYSLST, before a 
dynamic dump, to identify card/verb number 
of request. Cells and switches filled in 
by NXTENTRY subroutine. 
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Calling Information ; Called by SYMCNTRL at 
each dynamic request and after SYMSTATE at 
abnormal termination. Overlays SEGINIT and 
SYMSTATE. 



CALLD1D2 (COMMON PASS 2 SUBROUTINE 
CONTAINED IN DMPCNTRL) 

Operation : Serves as linkage between DUMP1 
and DUMP2. Loads whichever of the two is 
not in virtual storage when it is entered 
and passes control to it. 



Linkage ; 



L 
BR 



15 f ACALLD 
15 



For elementary items: name, level, 
card number, location in virtual 
storage, type code (for example, B 
for "binary," P for "packed 
decimal," etc.). Contents of 
alphabetic and alphanumeric fields 
in normal print characters. 
Contents of numeric fields in scaled 
decimal form. 

Every occurrence of each subscripted 
elementary item is dumped, preceded on the 
line by its subscripts. Every collection 
of subscripted elementary items belonging 
to a variable- length group is preceded by 
the name(s) and current value of the 
applicable object (s) of the 
OCCURS DEPENDING ON clause. 



Output : None . 

Calling Information ; Called by DUMPl and 
DUMP 2 . 



Calling Information : Called by DMPCNTRL 
and DUMP2. Overlays DUMP2. 



NXTENTRY (COMMON PASS 2 SUBROUTINE 
CONTAINED IN DMPCNTRL) 



DUMP2 (ILBDMP24) [JV] 



Operation : Gets and analyzes the next 
DATATAB entry on the debug file. 



L 15,ANXTNTRY 
BALR 14*15 

Output ; Address of the current DATATAB 
entry is returned in register 3 and 
ADATNAME; address of its attributes field 
is returned in ADATTR; LEV, MAJ, MIN, and 
other fields are also set. 

Calling Information : Called by DMPCNTRL to 
get the first item of a dump, called by 
DUMPl and DUMP2 to get subsequent items. 



Operation ; Formats the contents of FD*s, 
SD's, RD's, index-names, and fields of the 
TGT- Calls ILBDDBG1 to print dumps. 

Linkage ; 

L 15,ADUMP1 

LA 1,="ILBDMP24* 

LOAD (1) , (15) 

BALR 14,15 



Output ; 
SYSLST: 



The following is written on 



TGT fields in hexadecimal format. 



For an SD: name, 
card-number. 



type, and 



DUMPl (ILBDMP23) [JU] 



For an index-name: name, type, and 
contents converted to decimal. 



Operation : Formats the contents of group 
and elementary items; calls ILBDDBG1 to 
print dumps. 



Linkage ; 



L 

LA 

LOAD 



15,ADUMP1 

1,= , ILBDMP2' 

<1),<15) 



BALR 14,15 

Output : The following is written on 
SYSLST: 

For group items: name, level, and 
card-number. Hexadecimal dump as 
required. 



For an RD: name, type, card-number, 
and contents of PAGE-COUNTER and 
LINE-COUNTER, if present (Note: 
Report line is printed by DUMPl.) 

For an FD: name, type, card-number, 
and DTF information including 
contents of DTF in hexadecimal 
format. 

For a VSAM FD: whether the file is 
open or closed, file organization, 
access method, the file status key, 
and the last I/O statement. 

Calling Information : Called by DMPCNTRL 
and DUMP2. Overlays DUMP2. 
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SYMSTATE (ILBDMP25) [JW] 



SRCHPUBS (ILBDMPOU) [JX] 



Operation ; Calls ILBDDBGl to issue 
statement number message in the event of 
abnormal termination. Calls the FLOW 
subroutine (ILBDFLWO), if FLOW is 
specified, before the first Data Division 
dump is issued. 



Linkage ; 



L 

LA 

LOAD 
BALR 



Output ; 
SYSLST. 



2,ASEGINIT 
1,= , ILBDMP25° 
<1),<2) 
14.2 



Statement number message on 
STATEOUT switch is set on. 



Operation ; Searches the PUB table for the 
device type and then completes the SYS005 
DTF by entering the device type, track 
capacity, and upper head limit. 



Linkage ; 



L 

LA 

LOAD 
LA 



RO,ADBGBUF 
Rl,"ILBDMP04' 
(1), (0) 
R0,ERREXIT 



Calling Information ; Called by SYMCNTRL 
after SEGINIT in the event of abnormal 
termination. Overlays SEGINIT and 
DMPCNTRL. 



BALR R10 f Rl 

Output ; Three bytes beginning at DTF + 
X'lD* are filled in; the first byte 
contains the device type and the next two 
bytes contain the device-type track 
capacity. DTF + X'27* contains the maximum 
head limit for a cylinder of that device. 

Calling Information ; Called by IODISK for 
each request to open SYS005. 
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OBJECT-TIME EXECUTION STATISTICS SUBROUTINES 



Programmers can specify three options in 
the CBL statement to generate statistics 
for helping them make their programs more 
efficient. The VERBSUM and VERBREF options 
are implemented by the compiler, producing 
statistics on the design of the programs. 
The COUNT option is implemented by the 
compiler and object-time execution 
statistics subroutines, producing 
statistics on the frequency with which 
sections of the programs are executed. 



RELATIONSHIP TO THE DEEUG CONTROL 
SUBROUTINE 



The object-time execution statistics 
subroutines are controlled and supported by 
the debug control subroutine, ILBDDBGO (see 
"Diagnostic Aid Subroutines"). 

The debug TEST subroutine is called by 
INIT3 in the object module whenever the 
COUNT option has been specified, regardless 
of whether any debugging options have also 
been specified- The debug TEST subroutine 
calls an execution statistics subroutine to 
perform COUNT initialization. The debug 
control subroutines also provide the 
following functions for the object time 
execution statistics subroutines: 

• call COUNT subroutines at abnormal 
termination of object module execution 
(ILBDDBG2) 

• write COUNT option output on the debug 
print file (ILBDDBG1) 

• close the debug print file (ILBDDBG8) 



COUNT DATA AREAS 



The object-time execution statistics 
subroutines use a number of tables: 

• The count table, built by the compiler 
as part of the object module. The 
table contains each procedure-name and 
verb in the order in which it is 
encountered in the source program, each 
verb being in Pl-code form. 

• The verb translate table, verb table, 
and verb text table — parts of 
subroutine ILBDTC3 — which enable the 
subroutine to translate the verb codes 



into EBCDIC form for listing and also 
enable the subroutines to locate 
verbsum table entries. 



The COUNT chain, space for which is 
obtained by ILBDTCOO. This table is 
modified by the object-time execution 
statistics subroutines and contains the 
program-ids, pointers, and the node 
count table. 



The node count table contains the 
current number of times each 
count-block is entered. A count-block 
is a set of COEOL verbs such that 
(exclusive of ABENDS) each verb in the 
block is executed if, and only if,, the 
first verb is executed. 



• The verbsum table, space for which is 
obtained by subroutine ILEDTC3 0. This 
table is built at termination of object 
module execution and contains a summary 
of the information in the count tables 
and node count tables. 



The COUNT subroutines use the count 
common area (ILEDTC01) to control the 
monitoring process. It also uses the debug 
common area (ILBDDEG7) for printing. These 
tables, chains and common areas are 
described in "Section 3: Data Areas." 
Diagram 13 in "Section 2: Program 
Organization" shows how the tables are 
used. 



COUNT OPERATIONS 



At the start of object module execution 
the debug control subroutine calls the 
ILBDTCOO subroutine to begin implementation 
of the COUNT option. 

During object module execution 
subroutine ILBDCT10 is called by compiled 
code to update the counts of the frequency 
with which count-blocks of object module 
statements are executed. A count-block is 
determined by the compiler on the basis 
that any statement in it is executed if and 
only if all statements in the block are 
executed. The start of a block is called a 
node. 
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An example of what constitutes a 
count-block is as follows: 



Statement 


Statement 


Number 


Type 


1 


ADD 


2 


SUBTRACT 


3 


MOVE 


4 


IF... GO TO 


5 


ADD 



Statement 1 is a node for the first 
count-block, which consists of statements 1 
through the IF in statement 4. The GO TO 
part of statement 4 is the node for a 
second count-block. Statement 5 is the 
node for the third count-block. 

Each count-block is assigned a unique 
number. At each node in the object module 
is embedded a call to ILBDCT10 with a 
parameter consisting of the appropriate 
count-block number. 

At termination of load module execution, 
abnormal or otherwise, the ILBDTC20 and 
ILBDTC30 subroutines write the COUNT option 
statistics on SYSLST. 

Diagram 12 in "Section 2: Program 
Organization" show COUNT operations in more 
detail. The subroutines themselves are 
described individually below. 



COUNT Initialization Subroutine (ILBDTCOO) 
TkaI 



Operation: Initializes the count common 
area, gets space for and initializes the 
count chain, and initializes the count 
chain pointer in the object module TGT. 



Called by : ILBDDBGO, which was called by 
INIT3. 

Linkage : 

L R15,=V( ILBDTCOO) 

L Rl,A(parameter list) 

BALR R14,R15 

where the parameter list is: 

DC lK'number-of-count-blocks" 

Calls : GETVIS 

ILBDDBG1 

Input : 

1. Register 1 points to the number of 
entries for the count table 



2. Register 8 points to the TGT 

3. Register 13 points to the debug common 
area (ILBDDBG7) 

4. Registers 14, 15: standard linkage 
Output : 

1. Count chain generated and initialized 

2. Count common area initialized and/or 
bits set in count common 

3. Object module TGT points to the count 
chain 



Count Frequency Subroutine (ILBECT10) [KB] 



Operation : Updates the appropriate node 
counter by one and saves the caller's 
count-block number in the count chain. 

Called by : Generated code in the object 
module. 

Linkage : 

without SYMDMP option 

BALR 1,12 

DC H' count-block number' (Goes to 

the COUNT linkage area in 

the PGT) 

with SYMDMP option 

BAL 1,8(12) 

DC H* count-block number' (Goes to 

the COUNT linkage area in 

the PGT) 

where the COUNT linkage area of the 
object module PGT contains: 

L 15,=V(ILEDCT10) 
BCR 15,15 
DC IH'0* 

Calls : None 

Input : 

1. Register 1 points to the block number, 
and the return address is at 

002 (register 1). 

2. Register 12 points to the PGT 

3. Register 13 points to the TGT, where 
are contained the save area and a 
pointer to the appropriate count chain 

4. Register 15 points to this subroutine 
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Output ; 
1. 



2. 



Appropriate node counter updated by 
one 

Count chain contains the last 
count-block number 



COUNT Termination Subroutine (ILBDTC20) 



Operation ; Called at termination of object 
module execution to determine if there are 
programs being monitored. If so, it calls 
subroutine ILBDTC30 to write execution 
statistics, and if the termination is 
normal, calls ILBDDBG8 to close the debug 
print file. If the termination is not 
normal, the debug print file is left open 
for debugging information. 

Called by : Generated code in the object 
module, ILBDDBG2, ILBDABXO. 

Linkage ; 

from ILBDDBG2 

LA l^X'FFFFFFFF* 
L 15,=V(ILBDTC20) 
BALR 14,15 

from all other callers 



SR 


1,1 




L 


15,V(ILBDTC20) 


BALR 


14,15 




Calls: 


ILBDTC30 






ILBDDBG8 




Input: 






Register 


Contents 


Meaninq 



Close debug print 
file after ILBDTC30 
executes. 

Pointer to Do not close debug 
X'FFFFFFFF* print file after 

ILBDTC30 executes. 



13 



14,15 



Pointer to 
save area 

Standard 
linkage 



Output : None 



COUNT Print Subroutine (ILBDTC30) [KD] 

Operation : This subroutine computes and 
writes execution statistics on the debug 
print file upon termination of the program 
being monitored. 

Called by : ILBDTC20 

Linkage : 

L R15,V(ILBDTC30) 
BALR R14„R15 

Calls : ILBDDBG1 
ILBDDBG8 
FREEVIS 
GETVIS 

Input ; 

Register Contents 

1 Zeros or 

X'FFFFFFFF' 



Meaning 

From ILBDTC20 input 



13 



Points to count 
common area 



Points to 
save area 



14,15 Standard linkage 
Output ; 

1. Printed execution statistics 

2. Space for the count chains released 

3. Count common area updated 
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SECTION 2: PROGRAM ORGANIZATION 



This section is divided into two parts: 
"Diagrams" and "Flowcharts". The diagrams 
describe the flow of control, loading and 
calling dependencies, and virtual storage 
layouts in instances where several programs 
are present together in virtual storage. 



Flowcharts are provided for most of the 
data management subroutines, all of the 
subroutines for object-time debugging 
operations, and for other complex 
subroutines. 
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DIAGRAMS 



62 Diagrams 



Licensed Material - Property of IBM 



COBOL OBJECT PROGRAM 



ILBDSRTO SUBROUTINE 



SORT/MERGE PROGRAM 



SORT STATEMENT 



r~" 



INITIALIZE SORT 
PARAMETERS 



LINK SORT/MERGE- 



I 



B ILBDSRTO 



I 



INITIALIZE PERFORM 
OF INPUT PROCEDURE 



INPUT PROCEDURE 



RELEASE 

• -*- 
EXIT 



L-*. 



RESET PERFORM OF 
INPUT PROCEDURE 



INPUT PROC LINKAGE 




INITIALIZE PERFORM 
OF OUTPUT PROCEDURE 



rz^ 



OUTPUT PROCEDURE 



EXIT 



t* 



L-*. 



RESET PERFORM OF 
OUTPUT PROCEDURE 






OUTPUT PROC LINKAGE 



ir~" 



PHASE 2 



PHASE 3 



E35 EXIT 



Legend: / 

Broken line arrows indicate logic paths executed only once; solid line arrows represent logic paths in loops. 



Diagram 1. ILBDSRTO Logic Flow For SORT 
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COBOL OBJECT PROGRAM 

HUH 

MERGE STATEMENT 
USING . . . OUTPUT 
PROCEDURE 



ILBDSRTO SUBROUTINE 



SORT/MERGE PROGRAM 




EXIT -« 



PHASE 3 

• -* 



E32 EXIT 



— »- EXIT 



E35 EXIT 



Legend: 

Broken line arrows indicate logic paths executed only once; solid line arrows represent logic paths in loops. 



Diagram 2- ILBDSRTO and ILBDMRGO Logic Flow For MERGE 



_J 
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Link edited 
with 
COBOL 
program 



PERMANENT MAIN STORAGE 



_A_ 



^ 



SYMINIT 



Loaded 
during 



SYMCNTRL 



Loaded 
when 
Pass 1 
processing 
is completed 
for 

initializa- 
tion 



Modules which lie in the same vertical 
position in the diagram overlay one 
another in main storage, except that 
in the "Variable Main Storage" portion 
of the diagram the Pass 1 modules occupy 
space at the end of the partition, while 
the Pass 2 modules are loaded wherever 
space is available. 

A line from one module to another in- 
dicates that the module above or at the 
left loads the module below or at the right. 






"> r 



SCANP 



Loaded 

when 

program 

control 

card is 

read 



SEGINIT 



Loaded 
during 
initializa- 
tion 



SYMSTATE 



Loaded 
when dump 
is at 

abnormal 
termination 



DMPCNTRL 



Loaded 
for dynamic 
dump or 
abnormal 
termination 
dump 



* 



*> 



*-*\/ 






VARIABLE MAIN STORAGE 
A 



SCAND 



Loaded 
when line 
control 
card is 
read 



Loaded 
to search 
debug file 
for names 
on cards. 



FINDLOCS 



Loaded 
to search 
debug file 
for card 
and verb 
numbers 



DUMP1 



Loaded 
when 
item is 
elementary 
or group 



Loaded 
when item 
is neither 
elementary 
nor group 



"^ 



r~\ 



IODISK 



Loaded 
for debug 
file on 
disk 



IOTAPE 



Loaded 
for debug 
file on 
tape 



> PASS 1 



r*N 



IODISK 



Loaded 
when 



file on 
disk 



IOTAPE 



Loaded 
when 
debug 
file on 
tape 



>■ PASS 2 



Diagram 3. SYMDMP Subroutines: Loading Dependencies 
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SYMDMP Program 



7S 



5 



\Z 



and service 
processing 
of control 

initialize 
for dump 




NOTE: 



b of modules functions 
once for each run unit of the COBOL 
program compiled with the SYMDMP 

In segmented programs the Debug Control 
Subroutine (ILBODBGO) calls the SYMDMP 
modules at entry to each non-zero 
priority segment. (See also diagrams 7, 



*°>. 



> 



Indicates flow of control 



> Indicates flow of data 




o 



Control 
Pass 2 
functions 




| DYNAMTAB Table 



I PCONTROL Tabic \ 

Read from debug file 

OBODOTAB Toble 1 



Called by 
several sub- 
routine, of Pan 1 




H 
O 

TJ 
fl> 
II 
ft- 
>< 

O 
Hi 

H 
W 

s 



Licensed Material - Property of IBM 




? £ I I $ S 



Diagram 5- Debug and Execution Statistics Subroutines: Flow of Control at Abnormal 
Termination 
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Routine: ILBDDBGO — Level 1 



T ' T 

| CALLED ROUTINES | CALLING CONDITION 



ROUTINE 



PURPOSE 



ILBDDBGO 



Service 3 options for handling 
debugging information and the 
COUNT option for providing 
object-time execution statis- 
tics. 



SYMINIT 
(ILBDMP10) 



SYMCNTRL 
(ILBDMP20) 



ILBDFLWO 
ILBDSTNO 
ILBDTCOO 

ILBDTC20 



Called when SYMDMP option 
switch is on in TGT. 



Called when SYMDMP option 
switch is on in TGT every 
time after the first. 

Called if FLOW option is 
specif ied„ 

Called if STATE option is 
specified. 

Called if COUNT option is 
specified (see "Object- 
Time Execution Statistics 
Subroutines") . 

Called in all cases. 



Diagram 6, 



Debug and Execution Statistics Subroutines: Calling Dependencies (Part 1 of 

4) 



68 Diagrams 



Licensed Material - Property of IBM 



Routine: ILBDDBGO — Level 2 



ROUTINE 



PURPOSE 



j CALLED ROUTINES j CALLING CONDITION 



SYMINIT 
(ILBDMP10) 



Control routine and common sub- 
routines for processing control 
cards in SYMDMP option. 



SCANP 
(ILBDMP11) 

SCAND 
(ILBDMP12) 

FINDNAMS 
(ILBDMP13) 



FINDLOCS 
(ILBDMP14) 



Called if program-control 
card is found. 

Called if line control 
card is found. 

Called if valid line- 
control cards entered in 
DYNAMTAB. 

Called if valid line- 
control cards entered in 
DYNAMTAB. 



SYMCNTRL 
(ILBDMP20) 



Control routine for SYMDMP 
output. 



SEGINIT 
(ILBDMP21) 



SYMSTATE 
(ILBDMP25) 



DMPCNTRL 
(ILBDMP22) 



Called each time a program 
or segment is entered and 
at abnormal termination. 

Called at abnormal termi- 
nation to produce a state- 
ment number message. 

Called whenever a dump is 
to be produced. 



ILBDFLWO 



Produce flow trace if FLOW 
is specified. 



Calls no further 
routines. 



ILBDSTNO 



Write statement number if STATE 
is specified message at abnormal 
termination. 



-+ 



Calls no further 
routines. 



ILBDTCOO 



Initialize COUNT statistics if 
COUNT specified. 



Calls no further 
routines. 



ILBDTC20 ^Produce COUNT statistics if 
j COUNT specified. 

JL 



ILBDTC30 



Called if COUNT specified. 



Diagram 6. 



Debug and Execution Statistics Subrotines : Calling Dependencies (Part 2 of 
4) 
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Routine: ILBDDBGO — Level 3 



■T T 

j CALLED ROUTINES j CALLING CONDITION 



ROUTINE 



PURPOSE 



SCAND 
(ILBDMP11) 



Processes program control cards. 



+- 



Calls no further 
routines- 



SCAND 
(ILBDMP12) 



Processes line control cards, 



IODISK 
(ILBDMP01) 

IOTAPE 
(ILBDMP02) 



Called when Debug File is 
on disk. 

Called when Debug File is 
on tape. 



FINDNAMS 
(ILBDMP13) 



Searches Debug File for identi- 
fiers requested on line control 
cards; enters locators for them 
in DYNAMTAB. 



IODISK 
(ILBDMP01) 

IOTAPE 
(ILBDMP02) 



Debug File on disk. 



Debug File on tape. 



FINDLOCS 
(ILBDMPllO 



Searches Debug File for card 
number information; enters it in 
DYNAMTAB. 



IODISK 
(ILBDMP01) 

IOTAPE 
(ILBDMP02) 



Debug File on disk- 



Debug File on tape. 



SEGINIT 
(ILBDMP21) 



Initializes program segment for 
dynamic dumping by modifying 
specified instructions; allo- 
cates space; relocates table 
addresses; opens debug file. 



IODISK 
(ILBDMP01) 

IOTAPE 
(ILBDMP02) 



Debug File on disk. 



Debug File on tape. 



SYMSTATE 
(ILBDMP25) 



Issues the abnormal termination 
statement number message. 



IODISK 
(ILBDMP01) 

IOTAPE 
(ILBDMP02) 



Debug File on disk. 



Debug File on tape. 



DMPCNTRL 
(ILBDMP22) 



Contains main loop controlling 
dump. 



DUMP1 
(ILBDMP23) 



DUMP2 
(ILBDMP24) 



IODISK 
(ILBDMP01) 

IOTAPE 
(ILBDMP02) 



Called when group or 
elementary items are to be 
dumped. 

Called when item to be 
dumped is neither group 
nor elementary. 

Debug File on disk. 



Debug File on tape. 



ILBDTC3 



Print the COUNT statistics. 



Calls no further 
routines. 



Diagram 6.. Debug and Execution Statistics 
4) 



Subroutines: Calling Dependencies (Part 3 of 
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| Routine: ILBDDBGO — Level 4 

j. T , T ,. 



DUMP1 | Dumps elementary and group 
(ILBDMP23) j level items 

1 

1 

1 

_ j. _ _ _ _ 


|IODISK 

| (ILBDMP01) 

| IOTAPE 

| (ILBDMP02) 

X-— — 


| Debug 

j Debug 
_ j. 


File 
File 


on 
on 


disk- 
tape.. 


DUMP2 | Dumps item which are neither 
ILBDMP24) j elementary or group level 
j items. 

1 
1 


|IODISK 

| (ILBDMP01) 

J IOTAPE 

j (ILBDMP02) 


| Debug 
| Debug 


File 
File 


on 
on 


disk- 
tape.. 



L X X X J 



| Routine: ILBDDBGO — Level 5 

j. T T r _ 

j IODISK | Performs input/output operations) Calls ILBDMP04 | 

| (ILBDMP01) j | for debug file on disk. j before each | 

I I | open. | 

j. 



| IOTAPE | Performs input/output operations | Calls no further | 
| (ILEDMP02) | for debug file on tape. j routines. | 
x x ^ 



Y + 

| SRCHPUBS | Performs initialization of | Calls no further | Called by IODISK for each 
| (ILBDMP04) JSYS005 DTF for disk debug file, {routines, (open. 

L X X X 

Diagram 6,. Debug and Execution Statisitics Subroutines: Calling Dependencies (Part U 
of 4) 
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MINIMUM 
SYMDMP 



SYMDMP LOAD POINT 


Pass 1 






Pass 2 




Common Data Area 


SYMINIT 
(ILBDMP10) 


SYMCNTRL 
(ILBDMP20) 


SEGINIT 
(ILBDMP21) 


DMPCNTRL 
(ILBDMP22) 


SYMSTATE 
(ILBDMP25) 


SCANP 
(ILBDMP11) 


QUALNAMS 
table 








Object time tables 


- variable length 







Length unknown during 
Pass 1 



End of tables known after Pass 1 




DUMP1 
(ILBDMP23) 


DUMP2 
(ILBDMP23) 


1' 


Debug file buffer 1 


IOTAPE 
(ILBDMP02) 


IODISK 
(ILBDMP01) 


Buffer 2 for tape 




Buffer 2 for disk 



Slack - variable length 



iu O 
OO 



IOTAPE 
(ILBDMP02) 



IODISK 
(ILBDMP01) 



Debug file buffer 1 



Debug file buffer 2 



iCAND 
(ILBDMP12) 



FINDNAMS 
(ILBDMP13) 



FINDLOCS 
(ILBDMPM) 



END OF PARTITION 



Note: If, in Pass 2, there is space for all the modules and data areas 

of the pass except a second debug file buffer, the buffer is omitted. Routines 

IODISK and IOTAPE (ILBDMP01 and ILBDMP02) use a single buffer in this case. 

In the case of a dump for abnormal termination only, as many as 
possible of the Pass 2 modules that do not belong to the "minimum 
SYMDMP" group are loaded, overlaying the COBOL program's Procedure 
Division. If this main storage space is not sufficient, the additional 
modules are loaded after the object-time tables. 



Diagram 7. Virtual Storage Layout of SYMDMP Modules 
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SYSIPT 



MAIN STORAGE 



SYS005 



OBJECT TIME 
TABLES 




DEBUG FILES 



. -- PROGSUM. 



PROGRAM 1 



OBODOTABt 



DATATAB, 



PROCTAB 



PROGRAM 2 
PROGSUM 2 



MAIN STORAGE 



TAPE or DISK FILE 



NOTE: 

Solid arrows indicate the main pointers 

connecting the tables. 

Broken arrows indicate the primary 

sources of information . 

Broken lines indicate the boundary between 

files. 



Diagram 8 SYMDMP Subroutines: Control Card Processing. Relation Between Object-Time 
Tables and Debug File in Processing Identifiers on Control Cards 
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| FIRST |-«- 

i- ^ 

] LAST J 
L , J 



TGT 

highest 
level 
program* 
l J 



r 1 

TGT 

next highest 

level 

program 

i -j 



-\\- 



TGT 

current 
program 

i J 



j. j 

When SYMDMP, STATE, or FLOW has been requested, the TGT Address Routine (ILEDDBG3) is 
called by the COBOL program at each return of control to the program after a branch 
outside of itself. The routine stores in the fullword LAST the address of the current 
TGT. At abnormal termination this data area is used by the STXIT routine (ILBDDBG2) to 
trace the calling programs of an interrupted program so that information may be 
provided for each of them. Tracing begins at the program whose TGT is stored in data 
area LAST; it ends at the program whose TGT is stored in data area FIRST. 



h 



H 



♦Compiled with the SYMDMP, STATE, or FLOW options. 



Diagram 11. Doubleword Data Area Used by the TGT Address (ILBDDBG3) and STXIT 
(ILBDDBG2) Routines of the Debug Control Subroutine 
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Diagram 13. How Tables Are Used to Produce Object-Time Execution Statistics 
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FUNCTIONAL SYMBOLS 
***** A ^********«* 



***************** 



•ENTKX, WAJ.T, UK* 
♦TERMINAL BLOCK * 



»**********4 



**Q1******* 



•MODIFICATION * 
► BLOCK < 



*********** 



***El*********** 



**************** 



*****F1* ********* 

* * 

•_*_*_*-•-*-*-*-* 



***************** 



*****Gl***« ****** 



***************** 



► C3 * 
I * 

**** 



L**** 
->*02 * 
* Al * 



****B3********* 

* 4 

* HOURSRTN « 

* 4 
*************** 

**** 

* * 

* C3 * 

* *_> 

*•** 
BRANCH 

*****C3 ********** 
* UPDATE * 



***************** 

**** 

* * 

* D3 * 

* *- 
**** 

*****Q3********** 

* * 

* * 

* * 

* * 

* * 
***************** 



**** 




*01 * 




* E3 * 


-> 


* • 




**** 


V 



****G2********* 
k 4 

* RETURN * 

K * 

*************** 



GOTO V YY01A1 
*****F3********** 

♦SUBNM * 

♦_*_*_*_*_*_*_*_* 



***************** 



THE TERMINAL BLOCK IS USED 
TO SHOW ENTRY AND EXIT 
POINTS OF A ROUTINE. 
BLOCK B3 SHOWS AN ENTRY 
POINT NAMED HOURSRTN. 



THE INSTRUCTION AT LOCATION 

BRANCH CALLS A SUBROUTINE 

NAMED UPDATE. UPDATE IS 

A SMALL ROUTINE AND NO 

NO FLOWCHART OF IT IS PROVIDED. 



ON- PAGE ENTRY CONNECTOR. 
ONE OR MORE BRANCHES TO 
THIS BLOCK APPEAR ON THIS 
PAGE OF THE FLOWCHART. 



OFF- PAGE ENTRY CONNECTOR. 
A BRANCH TO THIS BLOCK 
APPEARS ON ANOTHER PAGE(S) 
OF THIS FLOWCHART. 



THE INSTRUCTION AT LOCATION GOTO 
CALLS A SUBROUTINE NAMED SUBNM. 
THE LOGIC OF SUBNM IS SHOWN ON 
CHART YY STARTING AT BLOCK Al . 



LINE JUNCTION 



**** 

► * 

► D3 * 

» 4 

**** 



*****H3 ********** 



***************** 



ON-PAGE EXIT CONNECTOR. CONTROL 
BRANCHES TO BLOCK D3 ON THIS PAGE 
OF THE FLOWCHART. 



THIS BLOCK REFERS TO A ROUTINE 
OR PROGRAM THAT IS DOCUMENTED 
IN SOME OTHER PUBLICATION. 



****J2* ******** 
\f 4 

► RETURN « 

» 4 

*************** 



CONTROL IS RETURNED TO 
A VARIABLE POINT. (FOR 
EXAMPLE, TO THE POINT 
AT WHICH THIS ROUTINE 
WAS INVOKED.) 



OFF-PAGE EXIT CONNECTOR. CONTROL 
BRANCHES TO BLOCK Al ON PAGE 2 
OF THIS FLOWCHART. 



***** 

*02 * 

* Al* 

* * 



*************** 



CONTROL BRANCHES TO AN ENTRY 
POINT ON ANOTHER FLOWCHART. 
BLOCK K3 SHOWS A BRANCH 
TO LOCATION TAXRTN THAT 
APPEARS IN CHART XX, PAGE 
2, STARTING AT BLOCK Al. 
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Chart CA. 



Sort/Merge (ILBDSRTO, ILBDMRGO) (Part 1 of 
Routine 



3) : Main Routine and E15ROUT 



****A1********* 

t 4 

► ILBDSRTO * 
*************** 



ENTER FROM 
COBOL SORT 
STATEMENT 



***************** 



FILE SIZE 

SPECIAL 

.REGISTER . 



THIS SYSTEM PROGRAM CALLS 
THE E15 ROUT AND E35 ROOT 
ROUTINES OF ILBDSRTO FOR 
EVERY RECORD. CONTROL 
RETURNS TO ILBDSRTO' S MAIN 
ROUTINE WHEN THE SORT HAS 
BEEN COMPLETED. THE 
SYSTEM PROGRAM ALSO CALLS 
ILBDCKPO TO TAKE A 
CHECKPOINT AND RETURN AT 
EXITS Ell, E21, AND E31. 



MODE-SIZE *. 
SPECIAL 
.REGISTER . ♦ 



*****C2********** 

* ADD SIZE * 
PARAMETER TO * 

'SORT' * 
STATEMENT * 

* * 
***************** 



->♦ 



->* 



*****D2** ******** 

♦ INCLUDE MODAL * 
LENGTH IN * 

RECORD * 
STATEMENT * 

* * 

Y* *************** 



*****B3********** 
** *• 

♦ ♦ DOS SYSTEM ** 
-** SORT/MERGE ** 
** PROGRAM ** 
** ** 

***************** 



K****C3 ********** 



***************** 



****D3 ********* 

* 4 

* RETURN * 

* 4 
*************** 

TO COBOL PROGRAM 



****AI|********* 

> 4 

* E15ROUT « 

► * 
*************** 



.♦FIRST TIME *. YES 

. THROUGH El 5 .* 

*. ROUTINE .* 



ENTER FROM El 5 
EXIT OF SORT/MERGE 
PROGRAM VIA El 5 
BRANCH TABLE 



TSTINPRC . * . 


C« *. 


. * * 


. * INPUT 


* . PROCEDURE 


*. 


*. . * 


*. .♦ 


*NO 


**** 




* * 




* D« * 




* *_> 




**** ir 


USING . * . 



*****g5********** 
♦GENERATED COBOL^ 

* code ♦ 

^♦INITIALIZE INPT^ 
♦ PROCEDURE OR ♦ 
♦OPEN USING FILE^ 
***************** 

**** 



**** 

*****C5*** ******* 

♦ COBOL INPUT ♦ 
♦ PROCEDURE ♦ 

->^CONTROL RETURNS^ 

♦ AFTER RELEASE ♦ 

♦ STATEMENT ♦ 
***************** 

**** 



.♦FIRST TIME ♦. YES 

♦.THROUGH USING. ♦ 

♦. ROUTINE .♦ 



**** 

*****D5********** 

♦ LOOP THRU TO ♦ 

♦ TEST TYPE OF ♦ 
->^DTF(S), PLUG IN^ 

♦EOFADDRESS, GET+ 
♦BUFFER ADDRESS ♦ 
***************** 



CORE-SIZE *. 
SPECIAL 
.REGISTER .♦ 



MOVECORE 

*****F1********** 

♦ REPLACE ♦ 
♦INPT/OUTPT PROC+ 

♦ ADDR IN LIST ♦ 
♦WITH SUBROUTINE^ 

♦ ADDRESSES ♦ 
***************** 



*****£2********> 



**************** 



***FH*** ******** 

* * 

READ USING FILE <- 

* * 

**************** 



***************** 



NO .♦ ALL FILES ♦. 

*. HAVE BEEN . 

♦ . READ . ♦ 



CA03A1 
*****G2***« ****** 
♦ILBDMRGO ♦ 
*_*_*_*_*_*_*_*_* 
>* * 

♦INITIALIZATION ♦ 
* * 

***************** 



♦♦♦♦♦H2 ********** 

* * 

♦ GET SORT LOAD ♦ 
->♦ POINT ADDRESS ♦ 

♦ FROM ILBDDBGO ♦ 

* * 
***************** 



NOSYM V 

*****jX ********** 



***************** 



*****G5********** 



n 



********************* 
* * 

**** * KM ♦ 

* * * * 

* H5 ♦ ♦♦♦♦ 

* *__, 
**** V 



♦ STORE RECORD ♦ 
♦POINTER IN SORT+ 
♦PARAMETER LIST ♦ 

* * 
***************** 

• *** 

• * 

♦ KU ♦ 

* * 
*•** 

****K4********* 

* * 

♦ RETURN ♦ 

* * 
*************** 



**************** 

**** 
l_>* * 

♦ D« ♦ 

* * 
**•* 



RETURN IS TO NEXT 
SEQUENTIAL INSTRUCTION 
AFTER 'EXIT E15* IN 
SYSTEM SORT/MERGE PROGRAM 



***************** 
**** 

L_>* a 

♦ B3 * 

* 4 
• *** 
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Chart CA. Sort/Merge (ILBDSRTO, ILBDMRGO) (Part 2 of 3): E35ROUT and CHKPOINT Routines 



****A1 ********* 
* E35ROUT * 

¥ * 

*************** 



.♦FIRST TIME *. 
. THROUGH E35 . 
*.ROUT RTNE.* 



El *. 

.* FIRST ♦. 

TIME 

THROUGH 

. GIVING . 

* . RTNE . * 

* . .* 

♦ NO 



Fl *. 

.* LAST *. 

* RECORD * 

RETURNED BY 

*. SORT/MGE .* 

*. PGM .* 

*. .♦ 

♦ NO 



BLOCKED 

V-TYPE 

RECORDS 



ENTER FROM E35 EXIT 
OF SORT/MERGE PROGRAM 
VIA BRANCH TABLE 



BRANCH IS TO GENERATED 
CODE IN COBOL PROGRAM 
EITHER TO INITIALIZE 
OUTPUT PROCEDURE OR 
TO OPEN GIVING FILE 



TSTLAST . * . 

C2 ♦. 

.* LAST *. 

. * RECORD * 

>*. RETURNED BY 

♦.SORT/MGE .* 

*. PGM .* 

*. . * 



BRANCH IS TO INSTRUCTION 
IN OUTPUT PROCEDURE 
FOLLOWING THE RETURN 
STATEMENT 



BRANCH IS TO AT END 
ROUTINE IN OUTPUT 
PROCEDURE 



*****E2********** 

* * 

* TEST TYPE OF * 
->* DTF AND GET * 

♦BUFFER ADDRESS * 

* * 
***************** 



CLOSEGIV 

♦♦♦**F2********** 

♦ CLOSE GIVING ♦ 

♦ FILE AND SET * 
>♦ CODE TO CLOSE ♦ 

♦ E35 ♦ 



***************** 



* Kl * 

* * 
**** 

VGIV 

*****G2 ********** 

* TEST WHETHER * 

♦RECORD WILL FIT+ 

>* AND, IF NOT. 



****AU********* 

► * 

* CHKPOINT * 

► * 
*************** 



***** BH ********** 

* * 
♦SAVE SORT/MERGE^ 

♦ PROGRAM * 

♦ REGISTERS ♦ 

* * 
***************** 



*****Ct ********** 



***************** 



V ED01A1 
*****D4 ********** 
♦ILBDCKPO ♦ 
*_*_*_*_*_*_*_*_* 

* * 
♦TAKE CHECKPOINT^ 

* ♦ 
***************** 



*****E1( ********** 

* * 

* RESTORE ♦ 

* SORT/MERGE * 

* REGISTERS ♦ 

***************** 



****F1|* ******** 

* RETURN TO * 

* SORT/MGE PGM 1 

* NEXT INSTR < 
*************** 



ENTER FROM Ell 
E21 OR E31 EXITS 
SORT/MERGE VIA 
BRANCH TABLES 



♦TRUNCATE BUFFERS 



***************** 



***H1**** ******* 



**************** 



►****jl ********** 



***************** 

**** 

► 4 

► Kl < 
k 4 

**** 

u 
Hi 

RETURN * 

4 
*************** 



RETURN IS TO NEXT 
SEQUENTIAL INSTRUCTION 
AFTER EXIT E35 IN 
SORT/MERGE PROGRAM 
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Chart CA. Sort/Merge (ILBDSRTO, ILBDMRGO) (Part 3 of 3): E32 Routine 



****A1 ********* 
* ILBDMRGO * 

¥ A 

*************** 



ENTER FROM ILBDSRTO 

1. AT INITIALIZATION 

2. AT EXIT E32 OF SORT/MERGE 
PROGRAM VIA BRANCH 



* INITIALIZE OWN * 
->*SAVE AREA WITH *- 

* POINTERS * 

* * 
***************** 



***D2* ********** 



****B3 ********* 
* * 

->* RETURN * 

*************** 

TO ILBDSRTO 



POINTERS : 

1. SD BUFFER ADDR 

2. COBOL USING EXIT ADDR 

3. NUMBER OF INPUT FILES 

4. ADDR OF PH3 BRANCH TABLE 

5. ADDR OF ERROR EXIT FOR VSAM 



.♦FIRST TIME *. YES 

♦.THRU E32 EXIT.* 

*. .* 



INITFLS 

*****D3 ********** 
* SAVE DTF'S, 



-> COBOL PGM 

* OPEN USING * 
FILES 
**************** 



* BL'S IN OWN 
->* AREA IN ORDER 
*OF USING FILES 
* 
**************** 



INITLOOP 

*****DU ********** 

* SAVE TYPE OF * 

* DTF, RECORD * 
>*FORMAT. BUFFER *- 

* POINTER FOR * 

* EACH FILE * 
***************** 



*****D5********** 



***************** 



*****E2********** 



***************** 
**** 



READ V 

*+*Fl *********** 
READ RECORD 
* FROM FILE * 
REQUESTED BY 
* SORT/MERGE * 
PROGRAM 
**************** 



COMRTN 

*****H1********** 

* STORE RECORD * 

* ADDR. CODE TO * 

* INSERT RECORD * 

* IN PARAMETER * 

* LIST * 
***************** 



**** 
» * 
► Jl * 
» *-> 

**** 



****J1 ********* 

* 4 

* RETURN * 

* 4 
*************** 

TO SORT/MERGE 



***G2*** ******** 

► * 

CLOSE FILE 



**************** 



COMCLOSE 

*****G3********** 
*SET CODE EOF ON* 

* THIS FILE, * 
>*UPDATE INTERNAL* 

* EOF COUNT * 



***************** 
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Chart CB. Moving Characters (ILBDMOVO) 



****A2* ******** 
» * 

* ILBDMOVO * 
k * 

*************** 



RETURN * 

4 

*************** 



. * LENGTH * 
->*. GREATER THAN 
*. 256 .* 



►**D2********** 



**************** 



*****£2** ******** 



***************** 



*****P2 ********** 

* * 
♦ADVANCE SENDING* 

-* AND RECEIVING * 

* POINTERS * 

* * 
***************** 



*****C3********** 



**************** t 



****D3********* 
► 4 

» RETURN * 
¥ * 

*************** 
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Chart cc. Segmentation (ILBDSEMO) 



****A1 ********* 
► * 

* ILBDSEMO * 

¥ * 

*************** 



ENTER FROM COBOL 
SEGMENTED PROGRAM 
GO TO STATEMENT 



*****B2 ********** 



-*.PN IN OPERAND. *< * 



****A3********* 
► 4 

* ILBDSEM1 * 
» 4 

*************** 



V 
*****B3 ********** 

* CONVERT BL * 

* NUMBER AND * 
-♦DISPLACEMENT TO* 

* PN ADDRESS * 



ENTER FROM SEGMENTED 
COBOL PROGRAM IF THE 
OPTIMIZATION (OPT) 
OPTION IS SPECIFIED 



***************** 



********* 



******** 



*****C1* ********* 



***************** 



*****D1** ******** 

* * 
*SET ENTRY POINT* 

— >* ADDRESS AND * 

* PRIORITY NO. * 

* * 
***************** 



El 


*, 

* 






*'. PTY=0 


* 


YES 
* 


*. .* 




V 


*. .* 




**** 


i 


►NO 




* 

* K2 
* 
**** 


V 
. *. 






Fl 
.*SEG 
YES .* DES 

*. ALREAI 

*. VIR" 
*.ST( 


*. 
OF * 
3T 

3Y IN 
DUAL 
)R .* 


* 


* 



♦LOAD SEGMENT AT* 

* DESIRED ENTRY *- 

* POINT * 

* * 
***************** 



G2 *. 
. * *. 
.* SYMDMP IN 



->* 



JA01A1 

*****G3** ******** 

♦ILBDDBGO * 

*_*_*_*_*_*_*_*_* 

INITIALIZE * 

SEGMENT FOR * 

DYNAMIC DUMPS * 

*************** 



HI *. 

.♦SEGMENT*. 

► OF DEST * 

INDEPENDENT 



**K1********** 



* INITIALIZE * 
-* INDEPENDENT * 

* SEGMENT * 

* * 
***************** 

**** 

* * 

* K2 ♦ 
♦ — i 



"" 1 

r v 



EXIT 

****K2********* 
♦EXIT TO SEGMENT* 
>*OF DESTINATION ♦<- 



*************** 



H3 *. 






.*SEG OF * 






ORIGIN= 


* 


YES 


SEGMENT OF 




* 


DEST 


* 





***************** 



84 Flowcharts 



Chart EA. Display (ILBDDSPO) (Part 1 of 2) 



Licensed Material - Property of IBM 



****A2********* 

» 4 

* ILBDDSPO « 

t 4 

*************** 



*****B2********** 

* * 
♦SAVE REGISTERS,* 

* DEVICE CODE. + 

* SET BIGSW ON * 

***************** 



**** 

*01 * 

* C2 *-> 





**** \ 


7 




UNITCK . * . 




C2 *. 




. * 




. * 




r — >* . SYSPCH 




*• 




*• 




***» *. .* 




* * *YES 




* C2 * 






* * 






* + ** 


' 




UNIT01 .*. 


***D1 *********** 


D2 *. 




. * 


* 


NO .* 


OPEN <— 


*. OPI 


:n 



**************** 



**** 

* * 

* F2 * 

* *-> 

**** 
UNIT12 

F2 
. * 
NO .* 



♦****E3********** 

POINT TC 

JFFER, G 

RECLEN 

* * 

***************** 

**** 



* F3 * 

* *-> 

**** 
DISP01 

F3 



.♦ 



C4 *. 
* * 

CONSOLE 



.* >*. FIRST CALL 



L . * 1 

*•* I 



* F5 * 

* * 
**** 



FIRST CALL 



***** 

*02 * 
* Bl* 

* * 



**** 
* « 

* F3 * 

* * 

**** 



V EB01A2 
*****Et ********** 
♦ILBDDSS4 * 
*_*_*_*_*_*_*_*_* 

* INITIALIZE * 

* CONSOLE * 

* * 
***************** 



SYSPCH 

*. . * 
*. . * 
♦ YES 



*****G2**** ****** 



***************** 



H2 *. 
. * *. 
* 
FIRST CALL 



* ILBDDSS7 
* PUT SYSPCH < 
**************** 



•—I 



***** 

♦ 02 * 

* B3* 
* * 



* SET EXHIB, * 
->* FIRST TIME * 

* SWITCHES * 

* * 
***************** 



**** 

*01 * 

* GU *-> 



**** 

*****C4** ******** 

* * 
♦PREPARE EXHIBIT* 
♦STATEMENT DATA ♦ 

* FOR WRITE * 

* * 
***************** 



H3 


*. 


*****HK 


********** 


.* *. 








* 


.* *. YES 


* 






* 


* . RESET . * -, 


* 


SET 


UP 


EXIT * 


*. .* 1 


* 






* 


*. .* V 


* 






* 


*. .* ***** 


***************** 


♦NO ^02 ♦ 












* C2* 








**** 




* * 






L. 


->* * 




* 








* C2 * 

* * 
**** 


^ 










*****J3********** 










* * 










* MOVE ITEM TO * 










* BUFFER * 










* * 










* * 










***************** 










**** 










L_>* * 












* C2 * 











-♦.EXHIBIT NAMED. ♦ 



♦ F5 ♦ 

* *-> 

**** 



* ILBDDSS5 * 
* OPEN SYSLST * 
**************** 
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Chart EA. Display (ILBDDSPO) (Part 2 of 2) 



*02 * 

* Bl * — , 

;**** J, 



EB02A3 
***B1 *********** 
ILBDDSS6 



**************** 



CI *. 
.* *. 

LASTSW ON 



♦02 * 

* C2 * — ■. 

* * I 
**** 

EXIT V 



♦TURN OFF BIGSW,* 
>* RESTORE * 

* REGISTERS * 

* * 
***************** 



****D2********* 

* * 

* RETURN « 

* * 
*************** 

TO COBOL PROGRAM 



*02 * 

* B3 * — , 

* * J 
**** V 


TSTPRM . * . 

B3 *. 
. * *. 


.* *. YES 

— >* . VARIABLE DATA. * 

f *. .* 


*• •* 


**** *. .* 


* *NO 
B3 * 

* 


**** 




v 
*****C3********** 

* * 


* SET RETURN * 

* ADDRESS TO * 

* DILET * 



***************** 



EB01A3 
*****D3 ********** 
♦ILBDDSS8 * 
*_*_*_*_*_*_*_*_* 
♦LOCATE DATA TO * 

* BE DISPLAYED * 

* * 
***************** 



*****BU ********** 



***************** 



tf EB01A3 
*****Ct ********** 
♦ILBDDSS8 * 
*_*_*_*_*_*_*_*_* 
♦LOCATE DATA TO * 

* BE DISPLAYED * 

* * 
***************** 



***************** 



***************** 



.* NUMBER *. NO 




.* 


* 


YES 


EXHIBIT . * n 

*. .* J 
*. .* V 


* 


. BUFFER FULL 


-1 




*. . * 
* . .* 


*. .* ***** 




*. . * 


***** 


*YES *01 * 




*NO 


*01 * 




* C2* 








* C2* 




* * 








* * 




* 




' 


' 


* 


V 


NXTPRM . * . 




***G3*********** 




GK ♦. 
. * * . 




♦PRINT ON NEW * 




* * 


YES 


LINE 


* 


EXHIBIT 


-"l 


* 




*. .* 
*. .* 


************** 




*. . * 


***** 


1 




♦ NO 


*01 * 


**** 








* G«* 


I— >*01 * 








* * 


* C2 * 








* 




* * 











♦.TERMINAL CODE.* n 



* B3 * 

* * 
**** 



*****JH********** 

* * 

* * 

* SET LASTSW ON * 

* * 

* * 
***************** 

**** 
l~>*01 * 
* C2 ♦ 
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Chart EB. Optimizer DISPLAY (ILBDDSSO) (Part 1 of 2) 



****A1* ******** 
^ 4 

* ILBDDSSO * 

* 4 
*************** 



*****B1 ******** 



***************** 



****A2* ******** 

t 4 

* ILBDDSSU * 

¥ 4 

*************** 



*****B2 ********** 

* * 

* SET UP BUFFER * 
>* AND LOGSSW. * 

* CLEAR BUFFER * 

* * 
***************** 



****A3********* 

* 4 

* ILBDDSS8 « 

* * 
*************** 

**** 

* * 

* B3 * 

* *_> 
**** 

TSTPRM 

*****B3 ********** 

* * 
♦SET UP POINTER * 

->♦ TO ITEM TO BE * 

* DISPLAYED * 

* * 
***************** 



C2 *. 
, * * 

BIGSW ON 



V 
****D2********* 

* « 

* RETURN * 

* * 
*************** 

TO ILBDDSPO 



*****E3** ******** 



It** ************** 



F3 *. 
BIGSW ON 



******* 



C5 *. 
.* * 

BIGSW ON 



***************** 



****D4********* 

* 4 
->* RETURN < 

* 4 
*************** 

TO ILBDDSPO 



****D5********* 

* 4 

* RETURN 4 

* 4 
*************** 

TO ILBDDSPO 



****FU ********* 

* 4 
->* RETURN 4 

* 4 

*************** 

TO ILBDDSPO 



***************** 



H3 *. 

.* *. 

LAST ITEM 



• *** 

» 4 

► B3 4 

t 4 

**** 



J3 *. 
* * 

CONSOLE 



♦NO 

I **•* 
I— >*02 * 
♦ Bl 



***** 

♦ 02 * 

* B3* 



Section 2: Program Organization 87 



Licensed Material - Property of IBM 



Chart EB. Optimizer DISPLAY (ILBDDSSO) (Part 2 of 2) 



****A1********* 

Y 4 

► ILB0DSS5 < 

C 4 

*************** 



**** 

*02 * 

* Bl *-> 



V 
***C1* ********** 

* * 

OPEN SYSLST 

**************** 



->*. BIGSW ON 



****A2********* 

> 4 

► ILBDDSS7 < 
v 4 

*************** 



***g2 *********** 



**************** 



****£!********* 

* 4 

* RETURN * 

* 4 
*************** 

TO ILBDDSPO 



****A34'*4r****** 

► 4 

► ILBDDSS6 4 

t 4 

*************** 



**** 

*02 4. 

* B3 *-> 



**** 
CONSOLE 

*****B3********** 

* * 

* SUBTRACT 4i 
4-TRAILING BLANKS* 

* FROM LENGTH * 

* * 
***************** 



***C34<*********4> 

* * 

EXCP TO CONSOLE 
* * 

**************** 



RETURN 

*****D3********** 



* CLEAR BUFFER * 

* * 

* * 
***************** 



E3 *. 
.* * 

BIGSW ON 



****P3 ********* 



*************** 



****G3 ********* 

• 4 

4" RETURN 4 

* « 

*************** 

TO COBOL PROGRAM 



**•+£(!*******•* 

* 4 
->* RETURN 4 

* 4 
*************** 

TO ILBDDSPO 
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****A1 ********* 

* * 
► ILBDACPO < 

* * 

*************** 



*****A2**** ****** 

* * 

* * 
->*SAVE REGISTERS * 

* * 

* * 
***************** 



*****B2********** 
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***************** 



SETSTOP 

*****C1********** 

* *STOP 

* *LITERAL 

* SET UP CCW'S *< 



. * >*. DTF OPEN 



***************** 



»*D1*********** 



**************** 



***£!*********** 



************** 
**** 



♦ACCEPT 
FROM 
CONSOLE 



* SET UP CCW'S 



***************** 



***E2*********** 



* SET LOGICAL * 

* RECORD LENGTH ♦ 

* TO 80 * 

* * 
***************** 



***C4***** ****** 

* * 

-> OPEN 

* * 

**************** 



* 


* 


. * 


*. YES 


* PAD BEYOND 80 * 


r — > WRITE 


*.DN LEN GT 80 .* 


>*CHARACTERS WITH* 


* * 


*. . * 


* BLANKS * 




*. .* 


* * 


**************** 


*. .* 


***************** 






*NO 










**** 












* * 












* F3 * 












* *— > 












**** 






V 


V 




***F2 *********** 


***F3*********** 




* * 


* GET (FROM * 




READ 


SYSIPT) 




* * 


* * 




**************** 


**************** 












**** 










* * 










* GU * 










* *__ .. 

**** I 

LWRCASE V 


V 






. *. 


V 


G2 *. 


*****G3 ********** 


*****GL|* ********* 


. * *. 


* * 


* TRANSLATE * 


.* *. YES 


* MOVE FROM * 


* LOWERCASE * 


*. SUCCESSFUL .* i 


♦BUFFER TO DATA * 


♦ALPHABETICS TO * 


* NAME * 


* UPPERCASE * 


* * 


* ALPHABETICS ♦ 


*. .* **** 


***************** 


***************** 


*NO * * 












* GU * 






**** 






* * 






* * 






**** 






* H4 * 

* *_> 








V 


**** 




V 


.*. 


ACCP02 V 


*****H2********** 


H3 *. 


*****I]U** ******** 


* * 


.* *. 


* * 


* CLEAR DN TO * 


.*LT 80 BYTES*. YES 


* RESTORE * 


I * BLANKS * 


*. LEFT IN DN .* 


>* REGISTERS * 


* * 


*. . * 


* * 


* * 


*. .* 


* * 


********* 


******** 


*. 


. * 


********* 


******** 



*****J3********** 



***************** 

**** 
L_>* * 

* F3 * 

* * 

**** 



****j<t********* 

► RETURN » 
* * 

*************** 
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Chart ED. Checkpoint (ILBDCKPO) 



****A1 ********* 

► i 
* ILBDCKPO 

► 4 
*************** 



*****B1 ********** 

* * 

* * 
*SAVE REGISTERS * 

* * 

* * 
***************** 



*****C1 ********** 



************ 



*****D1 ********** 

* * 

* GET A * 
♦(DTFPTR-1) AND * 

* A (DTFPTR-N) * 

* * 
***************** 



— >* GET DTFPTR 



***************** 



*+**A2 ********* 

* 4 

* ILBDCKP1 * 
► 4 

*************** 



****A3********* 
» ILBDCKP2 4 

t 4 

*************** 



*****B2 ********** 



***************** 



***************** 



DTFPTR 
POINTS TO 
. DTFMT . 



E2 *. 
. * *. 
* 
DTFMT OPEN 



k****F2 ********** 



***************** 



*****G2** ******** 



***************** 



♦GET ADDRESS OF * 
* NEXT DTFPTR * 



***************** 



*****K1* ********* 



****K2********* 

* * 
->* RETURN * 

* * 
*************** 



****A4 ********* 
► 4 

* ILBDCKP3 4 

* 4 

*************** 



*****B3 ********** 

* * 

* * 
♦STORE REGISTERS* 

* * 

* * 
***************** 



*****C3********** 



***************** 



->*. SORT CALL 



*****gt} ********** 



***************** 



****cn ********* 
» * 

* RETURN * 

Y * 

*************** 



*****£) t|********** 

* * 

* MOVE SORT * 
->* PARAMETERS TO * 

* WORK AREA * 

* * 
***************** 



***************** 



*****F3 ********** 

* * 

* GET PHYSICAL * 
♦UNIT USING LUB * 

* 6 PUB * 

* * 
***************** 



GU *. 
. * * . 
.* 
->*. DTFPH OPEN 



***************** 



*MOVE SYS NUM TO* 

* CHECKPOINT * 

* MACRO * 

* * 
***************** 



*****K3********** 

* * 

* * 

* ISSUE MACRO *- 

* * 

* * 
***************** 



*****Ki|********** 

* * 

* RESTORE * 
->* REGISTERS *- 

* * 

* * 
***************** 



* MOVE FILENAME * 
->*FROM PARAMETER * 

* LIST TO DTFPH * 

* * 
***************** 



*****H5********** 

* * 

* * 

* OPEN DTFPH * 

* * 

* * 
***************** 



****K5********* 

■ 4 

► RETURN 4 

> 4 

*************** 
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Chart EE- Open ACCEPT File (ILBDASYO) 



****A3********* 

► ILBDASYO * 
^ < 

*************** 
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-*. SYSIPT OPEN .* 



*+***C3********** 



****************4 



*****D3********** 

* * 

* * 

* OPEN SYSIPT * 

* * 

***************** 



► RETURN * 
t * 

*************** 
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Chart EF. Open DISPLAY File (ILBDOSYO) 



****A2********* 

► * 

► ILBDOSYO * 
\> * 

*************** 



SYSPCH *. YES .* *. NO 
REQUESTED .* >*. SYSPCH OPEN .* 



* C2 * 

* *_> 

**** 



*****D2**** ****** 



***************** 



***E2*** ******** 

* * 

OPEN SYSLST 
* * 

**************** 



*****%H*********t 



***************** 



***CH *********** 

* * 

OPEN SYSPCH 
* * 

**************** 



.* SYSLST *. YES 

» . REQUESTED . * t 

*. .* I 

*. .* V 
*. .* **** 
*NO * * 

* C2 * 

* * 
• *** 



► RETURN * 
t * 

*************** 
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Chart EG- Close With Lock (ILBDCLKO) 



**»»A3**»»»**** 
^ 4 

► ILBDCLKO * 

t 4 

*************** 



*****B3** ******** 



***************** 



PRE-DTF 
SWITCH = 
. X'FF' 



****C4********* 

t 4 

► RETURN 4 
t 4 

*************** 



*****03 ********** 



♦PUT ERROR CODE * 
♦ IN DTF-8 * 



***************** 



FI01A3 
*****E3 ********** 

*$$BCOBER * 
*_*_*_*_*_*_*_*_* 
♦EXECUTE SYSTEM ♦ 
♦ERROR PROCEDURE ♦ 
* * 

***************** 



V 
****53 ********* 
» < 

» CANCEL « 

► 4 

*************** 
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Chart EH. User Standard Labels (ILBDUSLO) 



* Att * 

* *—x 

**** V 



****A1********* 

* * 

* ILBDUSLO * 

* * 
*************** 



*****B1 ********** 

* * 

* * 
♦SAVE REGISTERS * 

* * 

* * 
***************** 



****A2********* 

* « 

* ILBDUSL1 * 

* < 
*************** 

**** 

* * 

* B2 * 



**** 1 
JRN1 V 



RETURN* 



♦ <- 



V 

. *. 

CI *. 

DTFMT 
'♦NO 



*************** 
♦TO LIOCS WITH SVC9 
(ILBRET1) 
(LBRET2) 
(LBRET3) 



C2 *. 



*****A3********** 

* * 

* * 
->*INDICATE LBRET1*- 

* * 

* * 
***************** 



*****B3********** 

* * 
♦POINT TO LABEL * 

-♦BUILD AREA FOR ♦<- 

♦ DTFMT * 



*. .* 
♦. .♦ 
♦ NO 



*****A5********** 

* * 

* ♦ 
^♦INDICATE LBRET3+ 

* * 

* * 
***************** 



->♦ . OUTPUT 
*. 
*. 

♦. . ♦ 
♦NO 



V 



El *. 

DTFDA 



*****F2 ********** 

* * 
*SET UP TO POINT* 

>♦ TO EOF ♦- 

* PROCEDURE ♦ 

* * 
***************** 



♦SET UP TO POINTS 

♦ TO EOV ♦- 

♦ PROCEDURE ♦ 

♦ * 
***************** 



♦♦♦♦HI ********* 

* * 

* ILBDUSL2 ♦ 

* * 
*************** 



*****J1 ********** 

* * 

* * 
♦INDICATE LBRET2+ 

* * 

* * 
***************** 



***************** 



*****C3********** 



***************** 



*****C1»********** 

♦ * 
♦POINT TO LABEL ♦ 
♦BUILD AREA FOR ♦ 

♦ DTFDA ♦ 

♦ * 
***************** 

**** 



>*. BOV BIT 



*****E3********** 

* * 
♦SET UP TO POINTS 

♦ TO BOF ♦ 

♦ PROCEDURE * 

* * 
***************** 



♦SET UP TO POINTS 

♦ TO BOV ♦ 

♦ PROCEDURE ♦ 

♦ * 
***************** 



*****C5********** 

* * 
♦POINT TO LABEL ♦ 
♦BUILD AREA FOR ♦< — J 

* DTFSD ♦ 

* * 
***************** 

**** 
L_>* * 

♦ B2 ♦ 

♦ ♦ 
**** 

*****D5***^++*+ + 

* * 

* * 
->*TURN ON BOV BIT^ 

* ♦ 

* * 
***************** 



*****E5********** 

* * 
♦SET UP TO POINT+ 

♦ TO BOF ♦ 

♦ PROCEDURE ♦ 

* * 
***************** 



.♦USER LABEL ♦. NO 

->♦ . PROCEDURE . ♦ 

♦. EXISTS .♦ 



->♦. OUTPUT 



*. .♦ 
♦ NO 

L_. 



*****Glj** ******** 

* GET DATA * 
->♦ ADDRESS FROM ♦ 

♦ CCW FOR DTFMT ♦ 

♦ * 
***************** 

1**** 
_>* * 

* JK * 

♦ * 
**** 

***** HI) ********** 

* * 

♦ GET DATA ♦ 
->♦ ADDRESS FROM * 

♦ CCW FOR DTFSD ♦ 

♦ ♦ 
***************** 

**** 

* * 

* JU * 

* *_> 

***• 



*****G5********** 



TURN ON COBOL 
LABEL BIT 



***************** 



♦ GET DATA ♦ 

♦ ADDRESS FROM ♦- 

♦ CCW FOR DTFDA ♦ 

♦ ♦ 
***************** 



INPUT 

.♦ 
*. . * 

♦YES 



*****Kl|********** 



***************** 



* RETURN « 

* * 
*************** 



EXIT 

****K5* ******** 

V *RETURN EXIT TO ♦ 

>* USER LABEL * 

♦ ROUTINE ♦ 

*************** 



***************** 
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****A1 ********* 

* 4 

* ILBDNSLO * 
» * 

*************** 



*****B1 ********** 



***************** 



****A2** ******* 

■ * 

* ILBDNSL2 *- 
v * 

*************** 



**** 

* * 

* B2 * 

* * - 



*****A3********** 



'****! 

E V 



►SAVE REGISTERS 



***************** 



***************** 



CB01A2 

*****B3********** 

♦ILBDMOVO * 

*_*_*_*_*_*_*_*_* 

->*MOVE LABEL INTO*- 

* BUFFER * 

* * 
***************** 



*YES 

I **** 

L_>* * 

* Jl * 



**** 
*****B4********** 





* 




* 


NO 




* 


CLOSE ON *. NO 


* 


BOF OR BOV 






>* 




INPUT . * 




* . 


* 






* 


. * 




* . . * 










*. .* 




*. . * 










*. . * 




*YES 










♦ YES 
















1 **** 
















L_>* * 
















* F3 * 
















* * 




V 










**** 


B 


3V .*. 






CHRIST 


. *. 




Dl *. 










D2 *. 




.* * 










* INIT *. 




* 


* 


YES 




♦REEL COUNT *. NO 


* 


INPUT 






>* 




= CUR REEL .* t 

COUNT . * I 
*. .* V 




*. 


* 






* 




* . . * 












*. .* 










*. .* **** 




*NO 










*YES * * 


















* Fl * 




































**** 




V 
















. *. 






BOF1 




7 




El *. 






*****E2* ********* 




.* * 






* 




* 




* NOT FIRST 


* 


NO 


*SET UP TO POINT* 


* 


TIME 






>* 




TO BOF * 




*. 




* 




* 




PROCI 


:dure * 



>*. INPUT FILE 



*****D3********** 

* * 
♦TURN ON OUTPUT * 

* TRAILER LABEL * 

* SWITCH * 

* * 
***************** 



***************** 



*****F1* ********* 

* * 
*SET UP TO POINT* 

* TO BOV * 

* PROCEDURE * 

* * 
***************** 



* F3 * 

* *_> 

**** 



*****P3********** 

* * 
♦SET UP TO POINT* 

* TO EOF * 

* PROCEDURE * 

* * 
***************** 



***************** 

**** 
L_>* * 

* H3 * 

* * 

**** 



****B5********* 

* EXIT TO USER * 
->* ERROR ROUTINE * 

* * 
*************** 



***************** 



iPTRL 



.* *. ****C5********* 

*. YES * * 

LAST REEL .* >*EXIT TO LIOCS* * 

.* * * 

*. .* *************** 
*. . * 

*NO *LBRET 2 — EOF 



*****E4* ********* 

♦ * 
♦SET UP TO POINT* 

->* TO EOV * 

♦ PROCEDURE ♦ 

♦ ♦ 
***************** 



****E5*******+* 

► 4 

► ILBDNSL1 1 
k * 

*************** 



***F5********** 



***************** 



.* USER *. NO 
. PROCEDURE 
*. EXISTS 



—* 

**** 

* * 

* H5 * 

* * 
**** 



HI *. 
v 

INPUT 



**** 

* Jl ♦ 

* *_> 

**** 

READLIB 

*****jl ********** 

* * 

* READ LABEL ♦ 

* (WAIT) * 

* * 

* * 
***************** 



***H2 *********** 
* * 

WRITE TM < 

* * 

**************** 



*****j2********** 



********************* 

* 4 

* H3 * 

* 4 
**** 



* WRITE 


LABEL * 


(WAIT) 


* * 


**************** 


**** 




* * 




* H3 * 




* *-> 




**** ij 


• * . 


H3 *. 


.* * . 


YES .* WRITE TM *. 


* . SWITC 


:h ON .* 



****j3********* 

* EXIT TO LIOCS < 

* OR USER** < 

* 4 
*************** 

***LBRET 



*****H4 ********** 



***************** 



G5 


*. 


.* *. 


NO . * * . 


*. INPUT 


*. .* 


*. . * 


*. . * 


*YES 


**** 




* * 




* H5 * 




* *-> 




**** 




LBRET V 


*****H5* ******** 


* 


* RESTORE 


* REGIS 


3TERS 



frJ4********* 



**************** 



***************** 



****J5********* 
* * 

♦EXIT TO LIOCS*** 

*************** 
**LBRET 2— EOV 



*. .♦ 
*YES 
I **** 
L_>* * 
* B2 * 



****K3 ********* 
* * EXIT TO USER * 

* >* ERROR ROUTINE * 



************** 



***************** 
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Chart EJ. Error Messages ($$BCOBER) 



****A3********* 

► 4 

► $$BCOBER « 
*************** 



*****B3********** 

* * 
♦MAKE ERROR CODE* 

* PRINTABLE IN * 

* DECIMAL * 

* * 
***************** 



*****03********** 

* * 

* MAKE LOGICAL * 
♦UNIT PRINTABLE * 

* IN DECIMAL * 

* * 
***************** 



♦****E3********** 

* MOVE IN FILE * 

* NAME AND MAKE * 

* DTF ADDB ■ * 

* PRINTABLE IN * 

* HEX * 
***************** 



*****F3********** 



***************** 



•****G3********** 



♦FETCH $$BCOBRl * 



***************** 



****H3 ********* 

* EXIT TO « 

* $$BCOBRl * 

*************** 
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Chart EK- Error Messages Print ($$BC0BR1) 



****A1 ********* 

Y * 

* $$BC0BR1 « 

*************** 



***** £1*********4 



***************** 



.* SYSLOG *. YES 

►.UNASSIGNED OR.* 

*.= SYSLST .* 



***D1*********** 

♦WRITE MESSAGE * 
ON SYSLOG 
* (CONSOLE) * 

**************** 



YES .* SYSLST *. 

r *.UNASSIGNED OR.* 

*. IGNORED .* 



**** 

* * 
► Kl * 

* * 
**** 



***** pi ********** 

* * 

* GET SYSLST * 
♦DEVICE FROM PUB* 

* TABLE * 

* * 
***************** 



B3 *. 

* 

BG JOB 



**** 

* * 

* E3 * 

* * 
**** 



C3 * 

* 

TAPE 






**** 

* * 

* Jl * 

* * 
**** 



* Kl ♦ 

* * 
**** 



***D1 *********** 



.* FILE *. YES 


• 


WRITE 


ON * 


* . PROTECTED . * n 




SYSLST 


DISK 


*. .* 1 






* 


*. .* V 








*. .* *•** 


**************** 


♦ NO * * 




1 




**** 


♦ ji ♦ 






**** 


* * 


* * 




L 


->* * 


* E3 * 


**** 






* Jl * 


* *_> 








* * 


**** 








**** 


V 








***E3 *********** 








♦WRITE MESSAGE ♦ 








SYSLST TAPE 








* * 








**************** 








1 .*** 








L_>* * 










* ji * 









*** HI *********** 

♦WRITE MESSAGE ♦ 
ON SYSLST 

* ( PRINTER) ♦ 

**************** 

**** 

* 4 

* Jl 



***4 



*-> 



DUMP OPTION 



NODUMP 

****K1********* 

* RETURN TO * 

* FETCHING * 

* PROGRAM * 
*************** 



*****j2********** 



***************** 



*****J3***«****** 
♦GET HICORE ADDR* 

* OF LAST PHASE * 
>* LOADED FROM *- 

* COMM REGION * 

* * 
***************** 



*****jy** ******** 

* STORE THESE * 
♦LIMITS AT DTF-8* 

AND FETCH *- 

* $$PDUMP * 

***************** 



->♦ 



****J5* ******** 
* * 

->*EXIT TO $$PDUMP* 

*************** 



PROGRAM IS FROM 
$$PDUMP 
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Chart EL. SYMDMP Error Messages ($$BCOBEM) 



****A1* ******** 

K 

* $$BCOBEM 

*************** 



*****B1******4 



***************** 



*****d ********** 



***************** 



.* ERROR NUM *. YES 
' . EQ OR LT . * 



REGISTER - HIGH ORDER BYTE 



LOW ORDER THREE BYTES 
CONTAINS ADDRESS OF 
BUFFER 



!•**** Fl********** 



***************** 



*****G1********** 

* * 

* CONVERT TO * 

* EBCDIC FOR * 

* PRINTING * 

* * 
***************** 



*****H1********** 

* * 
♦MOVE PREFIX OF * 

* ERROR MSG TO * 

* BUFFER * 

* * 
***************** 



*****J1********** 

* INDEX INTO * 
♦ERROR MESSAGES * 

* AND MOVE TO * 

* BUFFER * 



********* 



!•******* 



****K1********* 

♦ RETURN * 
¥ 4 

*************** 
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Chart EM. Optical Character Reader (OCR) Interface (ILBDOCRO) 



****A1* ******** 

l> 4 

► ILBDOCRO 4 
t 4 

*************** 



V 

*** 

■»• j. lv .1. j. I ALx usj * ' 
♦VERIFY CALL AND* 

* PARAMETER , * 

* POINT TO OP * 

* CODE TBL * 
***************** 



XCCSRCH V 

***** CI ********** 

* SEARCH FOR * 
♦OPERATION CODE,* 

* POINT TO FCB * 

* CHAIN * 

* * 
***************** 



XSEARCH V 

*****D1********** 

* SEARCH FCB * 

* CHAIN FOR * 

* FILE-ID * 



****A3** ******* 

Y 4 

► SERRRTN * 



NON- *. YES 

RECOVERY . * n 

. ERROR .* 



**** 

* * 

* Gl * 

* * 
**** 



****A5* ******** 
Y 4 

* SEOFRTN * 

*************** 



*****B5********** 

* * 

* * 

* INDICATE CODE * 

* * 

* * 
***************** 



..-■-♦ 



**** 
* Gl 
**** 



**** 

► * 

► Gl * 

► * 
**** 



***************** 



* BRANCH TO *- 

* APPROPRIATE * 
♦ACTION ROUTINE * 

* * 
***************** 



**** 

* 4 

* Gl 1 

* 4 
**** 



****G1* ******** 
► 4 

* RETURN 4 

K 4 

*************** 



ACTION 




REQUEST 


ROUTINE 


OPEN 


SOPEN 


CLOSE 


SCLOSE 


READ 


S READO 


READO 


SREADO 


WAIT 


SWAITO 


MARKD 


SMARKD 


SETDV 


SSETDEV 


MARKL 


SMARKL 


EJECT 


SEJECT 



— RETURN IS FROM EACH 

ACTION REQUEST ROUTINE 



.♦MARK CHECK ♦. YES 

►.AND EQUIPMENT. ♦ i 

*. CHECK .* 



**** 

* * 

* Gl * 

* * 
**** 



*****F3********** 

¥ * 

» * 

* SET CODE 



: i 



it******************** 

* * 

* Gl * 

* * 
**** 
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Chart FA. SA Printer Spacing (ILBDSPAO) (Part 1 of 3) 



****A1********* 

* * 

* ILBDSPAO * 

* * 
*************** 



V 
*****B1 ********** 

* * 
*SAVE REGISTERS * 

* * 

* * 
***************** 



Dl *. 

* 

VARBLK 



*************** 



**** 
* At * 



►****J1 ********** 

* * 

* * 

► PACK * 

Y * 

► * 
***************** 



F2 *. 
. * * 

MNEMONIC 



*****F3 ********** 

* INTEGER GET * 

* QUOTIENT AND * 
->*REMAINDER FROM * 

* PARM LIST * 

* * 
***************** 



*****G3********** 



***************** 



*SET UP TO SPACE* 

► AND SKIP TO * 
* CHANNEL * 

► * 
»****************' 



* F3 * 

* * 
**** 



**** 

* * 

* A« * 

* *__ 1 
**** 

DIVIDE V 

***** At) ********** 

* DIVIDE BY 3 * 

* (QUOTIENT AND * 

* REMAINDER * 

* INDICATE * 

* SPACING) * 
***************** 



***** 

*02 * 

* F3* 

* * 



***************** 



*****DH********** 



***************** 



.♦ VARBLK OR *. YES 

. APPLY WRITE . * 

* . ONLY . * 



***** 

♦ 02 * 

* Al* 
* * 



, .* ***** 

*NO *02 » 

| ****. * Al* 

I— >*02 * * * 

* Gl * * 



***************** 



*****P5 ********** 

* SAVE OWN * 
♦REGISTERS 5-12,* 
♦RESTORE CALLING* 

* REGS 5-12 * 

* * 
***************** 



FB01A1 
*****G5********** 
♦ILBDVBLO * 
*_*_*_*_*_*_*_*_* 

* * 

* WRITE TEST * 

* * 
***************** 



*****H5********** 

* RESTORE OWN * 
♦REGISTERS 5-12 * 

* SAVE CALLING * 

* REGS 5-12 * 

* * 
***************** 



. .* ***** 
♦NO +02 ♦ 
1 **** * E3^ 
I — > * o 2 ♦ * * 

♦ K3 * * 

* ♦ 
**** 



***************** 
**** 
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Chart FA. SA Printer Spacing (ILBDSPAO) (Part 2 of 3) 



***** 

*02 * 
* Al* 

* * 



♦GET CURRENT AND* 
♦ORIGINAL BUFFER* 

* POINTERS * 

* * 
***************** 



Bl ♦. 
VARUNB 



*****B3********** 



***************** 



***************** 



.♦ARE BUFFER ♦. 
. POINTERS 
* . EQUAL . ♦ 
*. .♦ 



*****£!********** 

* * 

* * 
♦POINT TO BUFFER* 

* * 

* * 
***************** 



***************** 



->* SAVE OWN REGS ♦ - 

* * 

* * 
***************** 



*****C3********** 

* * 

* * 
->♦ SAVE OWN REGS ♦- 

* * 

* * 
***************** 



CB01A2 
*****D3** ******** 
♦ILBDMOVO ♦ 
*_*_*_*_*_*_*_*_* 
>* SHIFT DATA IN ♦ n 

♦ BUFFER ♦ I 

* * V 
********************* 

* 4 

* Gl < 

* « 
**** 



CB01A2 

*****cu********** 

♦ILBDMOVO * 

*-*-*-*-*-*-*-*_* 

->♦ MOVE DATA TO * 

* BUFFER * 

* * 
***************** 

I **** 
L_>* * 

♦ HI ♦ 

* * 
**** 



**** 
*02 * 

♦ E3 

* * 
*♦** 



*****E3********** 



♦ CONTROL ♦< — , 

♦ CHARACTER * 

♦ * I 
********************* 



**** 

♦02 ♦ 

♦ F3 ♦-> 



► E3 < 

> 4 

**** 



.♦ ♦. 

WITH CODE 



*****F2 ********** 
♦MOVE CTLCHR TO * 

♦ 2ND BYTE AND ♦ 
CODE TO 1ST * 

♦ BYTE ♦ 

♦ * 
***************** 



->* 



**** 

♦ 02 ♦ 

♦ Gl ♦-> 



**** 
MVCTLCHR 

*****G1********** 



********************* 

► * 

► Gl ♦♦♦♦♦ 
» * * 

***** HI ♦ 
♦ * 
**** 



*****H1**** ****** 

♦ SAVE OWN REGS .* 

♦ 3-12 RESTORE ♦ 

♦ CALLING REGS ♦ 

♦ 5-12 ♦ 

♦ * 
***************** 



***J1*********** 

* * 

PUT TEXT 
* * 

**************** 



*****K1**** ****** 

♦ RESTORE OWN ♦ 
♦REGS 3-12, SAVE* 

♦ CALLING REGS ♦- 

♦ 5-12 ♦ 



***************** 



♦ NO 

I **•* 

L_>* * 

* E3 * 



. * >*.ANY REMAINDER. *- 



F5 ♦. 
.* 
.* 
->♦ . AFTER 



♦ YES 
♦ *** 

* * 

* G3 ♦ 

* * 
**** 

*****G3********** 

* * 

* * 

* GET REC LEN ♦< 

* * 

* * 
***************** 

**** 
L->*03 ♦ 

♦ A2 ♦ 



♦ YES 
| ♦*** 
I— >*03 * 

♦ ca ♦ 



*****H4********** 

* * 

* * 
-♦POINT TO CTLCHR* 

* * 

* * 
***************** 



♦ POINT TO SKIP ♦ 

♦ TO CHANNEL ♦ 

♦ CTLCHR ♦ 

♦ * 
***************** 



**** 
♦02 



♦ K3 ♦— , 

♦ ♦ [<- 

**** 

:t v 



**************** 



* ****£() ********** 

* * 
♦RESTORE CALLING^ 

->♦ REGS FORWARD ♦ — 

* IOREG * 

* * 
***************** 



****K5*****^^* 

> * 

► RETURN * 
t * 

*************** 
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Chart FA. SA Printer Spacing (ILBDSPAO) (Part 3 of 3) 

***** 

*03 * 
* A2* 



.♦VARIABLE OR*. YES 

*. APPLY WRITE .♦ 

*. ONLY .* 



***************** 



B2 *. 

. * * 
. * UNDEF OR 



*****E2********** 

* * 

* SET CURRENT * 
♦BUFFER POINTER * 

* FOR MOVE * 

* * 
***************** 



***************** 



*************** 



*****B4 ********** 

♦ * 
♦POINT TO DUMMY * 
♦REC (CTLCHR AND+ 

♦ 3 BLANKS) ♦ 

♦ ♦ 
***************** 

**** 

♦ 03 ♦ 

♦ C« ♦-> 

♦ * 
**** 

V 
*****cn ********** 

♦ SAVE OWN REG ♦ 

♦ 5-2 RESTORE ♦ 

♦ CALLING REGS ♦ 

♦ 5-12 . ♦ 

♦ ♦ 
***************** 



V FB01A1 
*****D4 ********** 
♦ILBDVBLO ♦ 
*_*_*_*_*_*_*_*_* 

* * 

* WRITE SPACING ♦ 

* * 
***************** 



*****£!)********** 

♦ RESTORE OWN ♦ 
♦REGS 5-12 SAVE ♦ 

♦ CALLING REGS ♦ 

♦ 5-12 ♦ 

♦ ♦ 
***************** 

I **** 
L->*02 ♦ 

♦ F3 ♦ 



♦MOVE CTLCHR TO ♦ 

♦ 1ST BYTE OF ♦ 

♦ DUMMY REC ♦ 

♦ ♦ 
***************** 



*****H2********** 

♦ SAVE OWN REGS ♦ 

♦ 3-12, RESTORE ♦ 

♦ CALLING REGS ♦ 

♦ 5-12 ♦ 

♦ * 
***************** 



***J2*********** 

♦ ♦ 

PUT SPACING 
» ♦ 

*************** 



*****K2********** 

* RESTORE OWN ♦ 
♦REGS 3-12, SAVE* 

* CALLING REGS ♦ 

* 5-12 * 

* * 
***************** 



CB01A2 

*****Q3********** 

♦ILBDMOVO ♦ 

*_*_*_*_*_*-*_*_* 

->^MOVE BLANKS TO ♦ 

♦ BUFFER * 

* * 
***************** 
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Chart FB. SA Variable Length Record Output (ILBDVBLO) 



K***A1********* 

4 

ILBDVBLO * 

4 
*************** 



V 
*****B1 ********** 

* * 
♦SAVE REGISTERS * 

* * 

* * 
***************** 



****C1 ********** 



****B2********* 
* 4 

» ILBDVBL1 * 

t 4 

*************** 



►»*** C 2 ********** 

* * 

* * 
♦SAVE REGISTERS * 



***************** 



***************** 



V 
*****D1 ********** 
*PUT DTF ADDR IN* 
*REGt FOR ERROR * 

* AND LABEL * 

* SUBROUTINES * 

* * 
***************** 



*****F1 ********** 



***************** 

I **** 

L_>* * 

* Gl * 

* * 
**** 



***************** 



**** 




* * 




* Gl * 




* *-> 




**** V 




Gl *. 


.* * 


.* RECORD IN 


* . BUF] 


"ER 



HI *. 
. * * 

1ST TIME 



. * ROOM FOR *. 
. THIS RECORD . 
*.IN BUFFER.* 



*****K1 ********** 

* * 

* * 

* TRUNCATE *- 

* * 

* * 
***************** 



**** 
^ * 

► G2 * 



*****G2*******< 



***************** 



FIRSTIME V CB01A2 
*****K2 ********** 
*ILBDMOV0 * 
*_*-*_*_*-*_*_*_* 

>*MOVE RECORD TO * 

* BUFFER * 



**** 



► ***< 



► *** 

**** 
>* * 
* G2 * 



*****G3********** 



***************** 



***H3 *********** 

* * 

PUT 
* * 

**************** 



*****J3********** 

* NOTE. MAX REC * 
*LEN SET TO BY* 

* PHASE 21 FOR *- 

* APPLY WRITE * 

* ONLY FILES * 
***************** 



* WILL MAX *. K 
LEN REC FIT . *- 
*.IN BUFFER.* 



*****H1) ********** 

* * 
♦FORWARD IOREG S* 

* R4 RESTORE ♦ 

* OTHER REGS ♦ 

* * 
***************** 



****jl| ********* 

* 4 

► RETURN 4 

* * 
*************** 



***************** 
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Chart FC. SA Error Routine (ILBDSAEO) 



♦♦♦♦A3********* 
* * 

► ILBDSAEO * 
» 4 

*************** 



*****B3 ********** 



***************** 



****A4* ******** 

> 4 

► ILBDSAE1 * 
* 4 

*************** 



*****Bl»********** 

* * 

* * 

* INDICATE WLR * 

* * 

* * 
***************** 



*****C3********** 

* * 

* * 
♦SAVE REGISTERS * 

* * 

* * 
***************** 



D3 * 
. * 

TO .* 

* . TAPE 



.* DATA *. NO 

♦.TRANSFER DID .* 

* . OCCUR . * 



*****G3********** 



♦POINT TO ERROR ♦ 
* BLOCK * 



***************** 



****Fl) ********* 

♦RETURN TO LIOCS* 

>* MODULE * 

* * 

*************** 



TRANS EJ01A3 
*****HU ********** 
*$$BCOBER * 
*_*_*_*_*_*_*_*_* 

>* EXECUTE SYSTEM *- 

♦ERROR PROCEDURE* 



***************** 



.♦ILBDDB62 IN*. NO 

->*. VIRTUAL .* 

*. STORAGE .* 



*****jl»********** 



***************** 



****K3 ********* 
► USER ERROR 4 
* PROCEDURE « 
t 4 

*************** 



*****j5********** 
♦ILBDDB62 * 
*_*-*_*-*-*_*-*-*. 

* PROCESS * 

* ABNORMAL * 

* TERMINATION * 
***************** 



****K5********* 

► 4 

* CANCEL 4 

» 4 

*************** 
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Chart FD. SA Tape Pointer (ILBDIMLO) 



****A3********* 

► « 

► ILBDIMLO * 

► 4 
*************** 



*****B3 ********** 



***************** 



*****C3********** 



***************** 



*****Q2* ********* 

* * 

* * 
♦INDEX LUB TABLE* 

* * 

* * 
***************** 



*****E3********** 

* * 

* MOVE PUB * 

* POINTER TO * 

* DTF-8 * 

* * 
***************** 



****F3* ******** 
* 4 

► RETURN * 
» * 

*************** 
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Chart FE. SA Position Multiple File Tapes (ILBDMFTO) 



*+**A2******"» 

* i 

* ILBDMFTO < 

* 1 
*************** 



*****B2 ********** 



********* 



***C2*********** 

* * 

REWIND TAPE 
* * 

**************** 



***D2*** ******** 



************** 



***F2*********** 



**************** 



* SUBTRACT ONE * 

* FROM POSITION * 

* INTEGER * 

* * 
***************** 



I-H2*********** 



**************** 



*****J2 ********** 

* * 

* SUBTRACT ONE * 

* FROM POSITION * 

* INTEGER * 

* * 
***************** 



*****K3********** 



***************** 



****KU********* 

* EXIT TO MAIN « 
>* LINE * 

* * 
*************** 
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Chart FF. SA Test Tape File (ILBDMVEO) 



****A3********* 
k « 

► ILBDMVEO « 
» « 

*************** 



***B3*********** 

* INTERROGATE * 
SYSLOG 'C126D 
* IS IT EOF' * 

**************** 



***C3*********** 



**************** 



****D5* ******** 

* RETURN VIA * 
->*0(R5) TO AT-END* 

* ADDRESS * 

*************** 



NO .+RESPONSE IS*. 



****E4* ******** 

► RETURN VIA R5 * 
* TO AT-END ♦ 

► ADDRESS « 
*************** 



k****p3*******4 



***************** 



***G3 *********** 

* * 

GET FILE 
* * 

**************** 



****H4** ******* 

* RETURN VIA * 
->*12(R5) TO NEXT * 

* INSTRUCTION * 
*************** 



****j3********* 
♦RETURN VIA Rlt * 

* TO NEXT * 

* INSTRUCTION * 
*************** 
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Chart FG. SA STXIT Macro Instruction (ILBDABXO) 



****A2********* 

► « 
* RETURN * 

► « 
*************** 



****AU********* 
► * 

* ILBDABXO * 
i * 

*************** 



ENTERED AT START 
OF PROGRAM TO 
ESTABLSIH LINKAGE 
FOR LATER ENTRY 
IN CASE OF ABNORMAL 
ECU 



B2 *. 
.♦CANCEL *. 
.* IS DOE TO *. YES 

*.I/0 OPERATOR .* , 

*. OPTION .* I 

"*. .*" **** 



*****B<t ********** 

* * 
*SET LINKAGE FOR* 

* ABNORMAL EXIT * 

* (STXIT AB) * 

* * 
***************** 



****C4********* 
♦RETURN TO COBOL* 

* PROGRAM * 

* * 
*************** 



r* : -. 



F2 *. 

* 

PRINTER 



**** 

* * 

* EU * 

* * 
**** 



* EU * 

* *— 3 
***♦ V 



V KC01A1 
***F4*********** 
ILBDTC20 



**************** 



NO .*OSER ERROR *. 

r *. PROCEDURE . 

*. EXISTS .* 



**** 

* * 

* EU * 

* * 
**** 



*****GU* ********* 

* * 

* * 
♦ISSUE EOJ MACRO*<- 

* * 

* * 
***************** 



*****H3 ********** 

* * 

* SET BYTE FOR * 
->♦ UNIT RECORD * 

* ERROR ♦ 

* * 
***************** 



****HI»* + ******* 

> * 

► EXIT * 
t * 

*************** 



***************** 
I **** 
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Chart FH. SA Reposition Tape ($$BFCMUL) 



****A2********* 

* * 

* $$BFCMUL * 

*************** 



♦****B2»********* 

* GET ADDRESSES * 

* OF OUR LUB. * 
♦PUB, AND FIRST * 

* JIB * 

* * 
***************** 



*****C2********** 

* * 

* * 

* SEIZE SYSTEM * 



********* 


********* 


**** 




* * 




* D2 * 




* *_> 




**** v 


COMPTR . ♦ . 


D2 ♦. 


. * *. 


.* OUR PUB *. NO 


*. POINTER = .* 


*. DTI 


'-8 .* 



**** 

* * 

* E2 ♦ 

* ♦_> 

*•** 
EXIT 

*****£2********** 



—J 

**** 

* * 

* E2 * 

* * 
**** 



*****E3********** 



♦RELEASE SYSTEM ♦ 

* * 

* * 
***************** 



* • 

* RETURN * 

* * 
*************** 



***************** 



***************** 



.*. 
G3 ♦. 
.♦STORED ♦. 
.♦ STANDARD 
>. ASSIGNMENT 



*****H3 ********** 

* * 

♦ MOVE THIS PUB ♦ 
♦POINTER TO LAST+ 

♦ POINTER ♦ 

* * 
***************** 



LPUBPTR V 

*****K3 ********** 

* * 
♦MOVE SAVED PUB ♦ 
♦POINTER TO END ♦ 

* OF CHAIN ♦ 

* * 
***************** 

I **** 
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Chart GA. ISAM READ and WRITE (ILBDISMO) 



****A1********* 

k 4 

► ILBDISMO « 

► 4 
*************** 



V 
*****B1 ********** 

* * 

* * 
♦SAVE REGISTERS * 

* * 
***************** 



****A2********* 

k 4 

► ILBDISM1 < 
* 4 

*************** 



♦MOVE RECORD KEY* 
*TO BEGINNING OF*<- 

* WORK * 

* * 
***************** 



*****A3*+ ******** 



->*SAVE REGISTERS * 



***************** 



V 
. *. 

CI *. 



**** 




* * 




* Dl * 

* *_> 

**** 




BLKLOAD V 

***D1 *********** 


♦WRITE t 
(NO WJ 


JEW KEY * 
MTF) 



**************** 



El *. 

. * *. 

k * 

INVALID KEY 



*****Q2**** ****** 

* * 
♦MOVE RECORD KEY* 

->*TO BEGINNING OF* 

* WORKE * 

* * 
***************** 

**** **** 

* * L_>* * 

* D2 ♦ ♦ Dl ♦ 
+ ♦ . * 

**** 1 **4 

KEY V 



***************** 



****E2********+ 

* USER INVALID * 

* KEY ROUTINE * 

* 4 
*************** 











**** 










* * 










* F2 * 

* * — n 


'? 






**** 


. *. 
Fl *. 

ERROR 


* 


YES 


J GB01A1 
IBERR V 

****F2 ********* 

* * 
>* ILBDISEO * 

* * 




. * 






*************** 



***C3*********** 



**************** 



****AU********* 
► 4 

* ILBDISM2 t 
k 4 

*************** 



*****B4 ********** 

* * 

* * 
*SAVE REGISTERS * 

* * 

* * 
***************** 



***C1*********** 



**************** 





*. 






.* 


*. YES 


ALID KEY .* 






*. INVALID KEY .* n 


. * 

.* 






*. . * 






*. .* **** 


*NO 






*NO * * 










**** 


* D2 * 










* * 


* * 










* E4 * 


**** 










* *-> 




V 






**** v 


. * . 






. *. 


3 *. 






Et *. 








. * *. 


*. NO 




.* *. YES 


ERROR . * 




1 


* . ERROR . * , 

*• •* 1 
*. . * V 


.** 




*. .* 


¥* 


k* 


*. .* **** 


♦ YES ♦ 




* 


♦ NO * * 


1 ***** 
L_>* * 


Gl * 


i ***** f2 * 
l_>* * * 




* 




* F2 *** 


»* 




* Gl ***** 



****A5********* 
k 4 

> ILBDISM3 * 
k 4 

*************** 



*****B5********** 

* * 

♦SAVE REGISTERS ♦ 

* * 

* * 
***************** 



*****D5* ********* 



i •: 



***************** 



***E5*********** 

* * 

GET 
* * 

k*************** 



k Gl * 
k *_> 

**** 



*****G1********** 



***************** 



****H1********* 
k 4 

► RETURN * 
k 4 

*************** 



****G2********* 
k 4 

k ILBDISM4 * 
k 4 

*************** 



*****H2********** 

* * 

* * 
♦SAVE REGISTERS * 

* * 

* * 
***************** 



**J2*********** 



****G3 ********* 
k 4 

► ILBDISM5 * 
k 4 

*************** 



*****H3 ********** 
*' * 

♦SAVE REGISTERS ♦ 

* * 

* * 
***************** 



*****G5* ********* 



***************** 



****H5********* 
k USER EOF 4 
* PROCEDURE * 
k 4 

*************** 



*****JU* ********* 



**************** 



NO 


* 


* 


r" 




ERROR . * 


* 


, * 
*. . * 


**** 




*. . * 


* * 




♦ YES 


* Gl * 




I **** 
L_>* * 


* * 




**** 




* F2 * 
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***K3*********** 

k * 

PUT 



**************** 



***************** 



K« *. 
.* 
.* 
->* . ERROR 



. .* **** 
♦NO * * 

I ***** F2 * 

L_>* * 4 

* Gl ***** 
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Chart GB. ISAM Error (ILBDISEO) 



****A1********* 

► * 
* ILBDISEO * 

► * 
*************** 



*****B1****« 



****A2********* 

► 4 

► ILBDISE1 * 

k • 

*************** 



*****B2 ********** 

* * 

* * 
♦SAVE REGISTERS * 



***************** 



***************** 



.♦USER ERROR *. NO *SET ERROR CODE * 

. PROCEDURE .* >*AND ADDRESS OF *- 

*. .* *DTF-8 IN REG * 

*. .* * * 

*. .* ***************** 



*****E2 ********** 



***************** 



V 
*****F2* ********* 
♦DETERMINE ERROR* 

* AND SET * 

* APPROPRIATE * 
♦USER ERROR BYTE* 

* TO 1 * 
***************** 



USER V 

*****G2 ********** 

* FORWARD ERROR * 

* BLOCK POINTER * 

* AND RESTORE * 

* REGISTERS * 

* * 
***************** 



****H2 ********* 

► USER ERROR * 

► PROCEDURE * 
k i 

*************** 



EJ01A3 
*****C l»********** 
*$$BCOBER * 
*_*_*_*_*_*_*_*_* 
->*EXECUTE SYSTEM *- 
♦ERROR PROCEDURE* 
* * 

***************** 



C5 ♦. 

. ♦ *. 

.♦ILBDDBG2 IN*. 



JC01A1 

*****£)5********** 

♦ILBDDBG2 * 
*_*_*_*_*_*_*_*_* 

* PROCESS * 

* ABNORMAL * 

* TERMINATION * 
***************** 



****E5********* 
» ♦ 

* CANCEL ♦<— 

► ♦ 

*************** 
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Chart GC. ISAM Start (ILBDSTRO) 



****A1********* 

► 4 

► ILBDSTRO < 
» i 

*************** 



*****B1*******+** 

* * 
♦GET ADDRESS OF * 
*KEYARG AND KEY * 

* LENGTH * 

* * 
***************** 



*****C1********** 

* * 
♦MOVE IDENTIFIERS 

* TO KEYARG AND ♦ 
♦PAD WITH ZEROS ♦ 

* * 
***************** 



*****D1******+++* 



***************** 



*****%!**** ****** 

* * 

* ISSUE $$BSETL ♦ 

* MACRO ♦ 

* * 

* * 
***************** 



****F1********* 

> 4 

► RETURN * 
Y * 

*************** 



****A2 ♦♦♦♦♦♦♦♦♦ 

* « 

► ILBDSTR1 * 
t 4 

*************** 



*****B2 ********** 



***************** 
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Chart HA. DA Close Unit (ILBDCRDO) 



****A3********* 
» 4 

► ILBDCRDO * 

H 4 

*************** 



*****B3********** 

* * 
♦SAVE REGISTERS * 

* * 
***************** 



*****C3********** 



***************** 



*****D3**** ****** 

* * 
♦MOVE LOW LIMIT * 
*OF NEXT EXTENT * 

* TO SEEKADDR * 

* * 
***************** 



*****£3**** ****** 

* * 

* * 

* SET RECORD=l * 

* * 

* * 
***************** 



*****F3 ********** 



******* *-* ******** 



****G3 ********* 
^ * 

► RETURN » 

*************** 
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Chart HB. DA Close Unit for Relative Track (ILBDRCRO) 



****A3********* 

► ILBDRCRO * 
i * 

*************** 



♦SAVE REGISTERS * 



***************** 



*****C3********** 

* * 

* UPDATE EXTENT * 

* * 

* * 
***************** 



*****D3********** 

* * 
♦MOVE LOW LIMIT * 
*OF NEXT EXTENT * 

* TO SEEK ADR * 

* * 
***************** 



*****E3********** 

* * 

* * 

* SET RECORD=l * 

* * 

* • 
***************** 



*****P3 ********** 



***************** 



****q3 ********* 
* 4 

► RETURN * 
k 4 

*************** 
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Chart HC DA Extent Processor (ILBDXTNO) 



****A1 ********* 

k 4 

► ILBDXTNO * 
*************** 



*****B1 ********** 



*************** 



*****C1******** 



***************** 



.* ALREADY *. YES 

*. PROCESSED 7 .* 

*. EXTENTS .* 



♦UPDATE COUNTER * 



************* 



*****F1 ********** 

* * 

* POINT TO 1ST * 
*BYTE OF EXTENT * 

* STORE AREA * 

* * 
***************** 



*****qi********** 

* * 

♦INITIALIZE 1ST * 

* BYTE FOR * 

* ILBDDSRO * 

***************** 



*****H1 ********** 

* * 

* POINT TO 1ST * 

* EXTENT STORE * 

* FIELD * 

***************** 



*****D2******** 



***************** 



****E2********* 
♦RETURN (PROCESS* 

* NO MORE * 

♦ EXTENTS) « 
*************** 



*. 1ST EXTENT 



I **** 
L_>* * 
* A3 * 



*****J2********** 

* * 

* * 
->*SAVE SYS NUMBER* 

* * 

* * 
***************** 

I **** 
L_>* * 

* A3 * 

* * 
**** 



**** 




* * 




* A3 * 

* * 
**** V 






TSTSYM . * . 

A3 *. 
. * *. 




. * SAVED * 
♦.SYSNO. = SYS 


NO 

* 



B3 *. 
. * ♦. 

1ST EXTENT 



*****C3********** 

* * 

* SET M = * 

* * 
***************** 



*****D3********** 

* * 

* STORE EXTENT * 

* SET TERM CODE * 

* SAVE SYS NUM * 

* * 
***************** 



r *. 1ST EXTENT 



*****Q3 ********** 

* * 
♦INITIALIZE SEEK* 

* ADDR FOR * 

* ILBDDSRO * 

* * 
***************** 



************* 



****J3********* 
♦RETURN PROCESS * 

* NEXT EXTENT * 

* 4 
*************** 



*****A4 ********** 

* * 

* GET PREVIOUS * 
>*VALUE OF M AND ♦- 

* INCREASE BY 1 * 

* * 
***************** 



*****B4 ********** 



***************** 



*****C4 ********** 

* * 

* POINT TO ♦ 
♦CURRENT EXTENT * 

* STORE FIELD * 

* * 
****♦*♦♦♦♦♦♦♦♦♦♦♦ 
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Chart HD. DA Sequential Read (ILBDDSRO) 



****A1********* 

* ILBDDSRO * 
► * 

*************** 



*****B1 ********** 

* * 
♦SAVE REGISTERS * 

* AND POINT TO * 
♦CURRENT EXTENT * 

* * 
***************** 

**** 



***C1* ********** 

* * 

READ ID 
* * 

**************** 





**** 




* * 




* D2 * 




* *— 1 
**** 
EOF V 








*****Q2 ********** 




* * 


YES 


* RESTORE * 




>* REGISTERS * 



****D3********* 
*BR TO USERS EOF* 
>* ROUTINE * 
* * 

*************** 



***************** 



***************** 



. * NO RECORD * . NO . * WRONG * . NO 

FOUND .* >*. LENGTH RECORD.* 

♦.CONDITION.* *. .* 



HH01A1 
*****G1********** 
♦ILBDIDAO * 
*_*_*_*_*_*_*_*_* 
* INCREASE SEEK * 
*ADDR BY 1 TRACK* 

***************** 



F3 *. 
. * *. 

DATA CHECK 



*****F4 ********** 



***************** 



HK01A2 

****** 

* * 

* CALL ILBDDAEO * 

* * 
*************** 



. * . NXTXTNT 

HI *. *****H2********** 

.* SEEK *. * * 

. *ADDR WITHIN*. NO * * 

CURRENT .* >*GET NEXT EXTENT*- 

*. EXTENT .* * * 

*. . * * * 

*. .* ***************** 



*** + 

* * 

* D2 * 

* * 
**** 



.* NO RECORD 


* 


YES 


* . FOUND 




*'"l 


♦.CONDITION. 
* . . * 


* 


*. . * 




**** 


*NO 




* * 








* CI * 








* * 








**** 


URN \ 


\ 






*****K1 ********** 


* 






* RESTORE 




* 


* REGIS 


3TERS 




* 



****K2********* 

» 4 

* RETURN * 

* * 
*************** 



***************** 
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Chart HE- DA Sequential Read for Relative Track (ILBDRDSO) 



*****G1********** 



***************** 



****H1 ********* 

* EXIT TO USER < 

* EOF ROUTINE * 

* * 
*************** 



****A2* ******** 
* * 

► ILBDRDSO * 

» 4 

*************** 



*****B2* ********* 



***************** 



* . SPANNED . * 1 


*. .* 1 


*. .* V 


*. .* **** 


*YES * * 




* E2 * 




* * 




**** 


T 


' 


*****D2*** ******* 


* * 


♦STORE SYMBOLIC * 


*KEY INTO CCW'S * 


* * 


* * 


***************** 


**** 




* * 




* E2 * 




* *-> 




**** 




V 


•**E2*********** 


* * 


READ ID 


* * 


********* 


******* 



SEARCH KEY EQ CCW 
READ KEY AND DATA 
CCW 



♦.RECORD FOUND . *- 



*****pil ********** 

* * 

* MOVE RELATIVE * 
->* TRACK ADDRESS * 

* TO USER FIELD * 

* * 
***************** 



* G3 * 

* *-> 
**** 



*****G3**** ****** 



***************** 



*****H2********** 



***************** 

**** 
L_>* * 

* E2 * 

* * 
**** 



HK01A2 
ERROR 

****H4********* 
* EXIT TO * 
>* ILBDDAEO * 



*****G5* ********* 

* * 

* MOVE SYMBOLIC * 
>* KEY TO USER * 

* FIELD * 

* * 
***************** 

**** 
L_>* * 

* G3 * 

* * 
**** 



*************** 



****J3********* 
► RETURN * 

» 4 

*************** 



Section 2: Program Organization 117 



Licensed Material - Property of IBM 



Chart HP. DA RZERO Record (ILBDFMTO) 



♦***A1 ********* 

* 4 

► ILBDFMTO * 

* i 
*************** 



*****31* ********* 

* * 

* * 
♦SAVE REGISTERS * 

* * 

* * 
***************** 



***** CI ********** 

* * 

* MOVE LOWER * 
♦LIMIT OF EXTENT* 
*TO SEEK ADDRESS* 

* * 
***************** 



***D1********» 

* 
-> WRITE RZERO 

* 4 

**************** 



El *. 
► 

ERROR 



HH01A1 

*****G1 ********** 

♦ILBDIDAO * 

*_*_*_*_*_*_*_*_* 

-* INCREASE BY 1 * 

* TRACK * 

* * 
***************** 



♦PUT ERROR CODE * 
->* IN REG HIGH *- 

* BYTE * 

* * 
***************** 



*****F2 ********** 



***************** 



V 

♦♦**G2* ******** 
» 4 

" RETURN < 
► 1 

*************** 



*****E3********** 



***************** 



V EJ01A3 
*****f3 ********** 

*$$BCOBER * 
*_*_*_*_*_*_*_*_* 
♦EXECUTE SYSTEM ♦ 
♦ERROR PROCEDURE* 
* * 

***************** 



****G3 ***♦***♦* 
* 

• CANCEL JOB * 
► 4 

*************** 
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Chart HG. DA RZERO Record for Relative Track (ILBDRFMO) 



****A2********* 

* * 

* ILBDRFMO * 

* t 
*************** 



V 
*****32*********« 

* * 

* * 
♦SAVE REGISTERS * 

* * 
***************** 



*****C2 ********* 



**************** 
**** 



**** 
FORMAT 

***02*** ******** 



WRITE RZERO 



**************** 



***E2**********i 

* * 

WAITF 

* * 

**************** 



, * EOF *. NO 

, (OUTSIDE .* 

*. EXTENT) .* 



EOF V 

*****Q2 ********* 



**************** 



****H2********* 

* A 

» RETURN * 
*************** 



*****P3** ******** 



***************** 

I **** 

D2 * 
c * 
**** 



L_>* 
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Chart HH- DA Increase SEEK Address (ILBDIDAO) 



****A1********* 

* * 

* ILBDIDAO < 

*************** 



*****S1* ********* 



***************** 



*****C2** ******** 

* * 

* * 
->* SET RIO=17 * 

* * 
***************** 



->* SET H2 = *- 

* * 

* * 
***************** 



E2 * 
2311 



* ADD 1 TO H2 * 



********! 


******** 


**** 

* * 

* Gl * 

* *_> 

**** 




RETURN 1 
**** G l*i 
* 
— >* RETl 

* 
*******i 


1 
******* 

JRN 
******** 



*****F2 ********** 

* * 

* * 

* SET H2=0 * 

* * 

* * 
***************** 

**** 

* * 

* G2 * 

* *-> 

**** 



*****G3********** 

* * 

* * 
->* SET R8 = 143 * 

* * 

* * 
***************** 



*****H3**** ****** 

* * 

* * 
->* ADD 1 TO C2 *- 



**** 

* * 

* G2 * 

* * 
**** 



*****B5* ********* 

* * 

* * 
->* ADD 1 TO HI * 

* * 

* * 
***************** 

I **** 

L_>* * 

* Gl * 

* * 
**** 



***************** 



.*C2 GREATER *. NO 
THAN 8 .* 



IC2GT8 V 

*****E4 ********** 



*****D5* ********* 

* * 

* * 
->* ADD 1 TO C2 * 

* * 

* * 
***************** 

**** 
L_>* * 

* Gl * 

* * 
**** 



* SET C2 = 



***************** 



*****F5* ********* 

* * 

* * 
->* ADD 1 TO C2 * 

* * 

* * 
***************** 

**** 



; J 



SET CI = 



***************** 



*****H4 ********** 

* * 

* * 

* ADD 1 TO B2 * -i 



********************* 

* * 

* Gl * 

* * 
**** 



: J 



* SET CZ = *< *. 3330 

* * 

* * 
***************** 



*****K1 ********** 

* * 
-* ADD 1 TO M * 

* * 

* * 
***************** 



********************* 

* * 

* Gl * 

* * 
**** 



***************** 

j **** 
L_>* * 

* Gl * 

* * 
**•* 



*****K3** ******** 

* * 

* * 

* ADD 1 TO C2 



: 1 



********************* 

* * 

* Gl * 
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Chart HI. DA READ and WRITE (ILBDDIOO) 



****A1 ********* 
* 4 

" ILBDDIOO * 
t * 

*************** 



*****B1 ********** 

* * 
♦SAVE REGISTERS * 

* * 

* * 
***************** 



V 
***** CI ********** 

* INDICATE * 

* AMERICAN * 

* NATIONAL * 
♦STANDARD COBOL * 

* WRITE/REWRITE * 
***************** 



*****D1 ********** 

* * 

* * 
♦MOVE IN SEEKADR*<- 

* * 

* * 
***************** 



*****£!********** 

* * 

* * 

* POINT TO KEY * 

* * 

* * 
***************** 



****A2**+****** 

H 4 

* ILBDDIOl * 

* 4 
*************** 



*****B2 ********** 

* * 

* * 
*SAVE REGISTERS * 

* * 

* * 
***************** 



V 
*****C2********** 

* SET UP TO DO * 

* AMERICAN * 

* NATIONAL * 

* STANDARD READ * 

* KEY ♦ 
***************** 



****A3********* 
► 4 

* ILBDDI02 < 

V 4 

*************** 



*****B3********** 

* * 

* * 
♦SAVE REGISTERS * 

* * 

* * 
***************** 



*****C3*+*******« 



***************** 



****A<t******* + * 

► * 

► ILBDDI03 * 
k 4 

*************** 



V 

*****Qi) ********** 

* * 

* * 

♦SAVE REGISTERS ♦ 

* * 

* * 
***************** 



*****C4 ********** 



***************** 



*****D2* ********* 

* INDICATE NOT * 

* AMERICAN * 
-* NATIONAL * 

* STANDARD * 

* WRITE/REWRITE * 
***************** 

**** 

* * 

* E2 * 

* *__., 
**** V 

E2* '*. 



*. 



V 

. *. 
F2 *. 



.."•-J 



* H2 * 
» * 

**** 



**** 

* * 

* E4 * 

* *_-, 
**** V 

. *. 

E4 *. 

.*SEEKADR*. 

.* COMPARE D *. 

*.TO UPPER LMT . 

*.THIS EXT .* 



.♦SEEKADR*. 
.* IS VALID 
. FOR DEVICE 
* . TYPE 



*****G2**** 



.* 


*. YES 


* MOVE KEY TO * 


*. WRITE AFTER .* 


- — >* BUFFER * 


*. . * 


* * 


*. . * 


* * 


*. . * 


***************** 


*NO 










**** 




> 




* * 

* H2 * 

* *-> 

**** 




V 


V 


*****H1********** 


*****H2 ********** 


♦SET KEY ADDRESS ♦ 


* * 


* IN * 


* SET UP TO DO * 


* SEARCH-KEY-EQ * 


* WRITE AFTER * 


* CCW * 


* * 


* * 


* * 


***************** 


***************** 






**** 








* * 








* J2 * 








♦ *-> 




T 


/ 


**** 





*. .* **** 
*YES * * 
***** Q5 * 
l->* * * 
* £5 ***** 



*****J2 ********** 



***************** 
**** 



* K2 * 

* *_> 

**** 



.♦SEEKADR*. 
.♦COMPARED TO*. 
. LOWER LIMIT . 
*.THIS EXT .* 



*****G3********** 

* * 

* * 
*GET NEXT EXTENT*< — t 

********************* 



* J3 
* 
**** 



* G3 * 

* * 
**** 



H3 



*. 



♦.TERMINAL CODE.* 

*. . * 

*. .* 

*. . * 

♦YES 



♦ *** 

* 4 

* J3 



♦ -> 



**** 

* * 

* K2 * 

* * 
**** 



***G4 *********** 



**************** 



*****H4* ********* 

* SAVE SEEKADR * 

* AND KEY IF * 

* AMERICAN * 

* NATIONAL * 

* STANDARD READ ♦ 
***************** 



**** 
*****J3********** 



***************** 



****K3********* 

* USER INVALID * 

* KEY ROUTINE < 

* 4 
*************** 



****KH********* 

► EXIT TO < 

► ILBDDAEO 4 

* 4 

*************** 



****A5********* 

* 4 
► ILBDDI04 < 

* 4 
*************** 



*****B5********** 

* * 
*SAVE REGISTERS * 

* * 

* * 
***************** 



*****C 5********4 



**************** 



**** 

* * 

* E5 * 

'-•-J 

*****E5 ********** 
♦SET KEY ADDRESS* 

* IN * 

* READ-KEY-AND- * 

* DATA CCW * 

* * 
***************** 



*****F5* ********* 

* * 
*PUT RECORD SIZE* 
*IN BYTES U AND * 

* 5 OF IOAREA * 



**************** 


**** 




* 




G5 * 




*-> 




**** v 


. *. 


G5 *. 


.* AMER *. 


.* NATL STDD *. NO 


.WRITE/REWRITE. * 


*. .♦ 


♦. . ♦ 


♦. .♦ ♦♦* 


*YES * 


| ***** J2 
L- >* * 




* £2 **** 



*****J5*********4 



***************** 



****K5********* 

» 4 

* RETURN 4 

* 4 
*************** 



*GT 

I OR*EQ* 

L_>* * * 

* E« * 
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Chart HJ. DA READ and WRITE for Relative Track (ILBDRDIO) 



* M * 

* *—\ 
**** v 



****b:l********* 

► 4 

► ILBDRDIO * 
» 4 

*************** 



*****C1 ********** 

* * 

* * 
♦SAVE REGISTERS * 



****h2* ******** 
* 4 

► START * 
k 4 

*************** 



*****B2*** ******* 



♦SAVE REGISTERS ♦ 



***************** 



*****C2********** 



ILBDRDI1 
ILBDRDI2 
ILBDRDI3 
ILBDRDIK 



♦ MOVE IN ♦ 
♦RELATIVE TRACK ♦<- 

♦ ADDRESS ♦ 

♦♦♦♦♦♦♦♦*♦♦*♦*♦♦♦ 



*****■£■]_********** 



*****D2*** ******* 

* INDICATE NOT ♦ 

* AMERICAN ♦ 
-♦ NATIONAL ♦ 

* STANDARD ♦ 

* WRITE/REWRITE ♦ 
♦♦*♦♦*♦♦♦♦♦♦♦♦♦♦♦ 



♦ CK ♦ 

* *_> 

♦ ♦♦♦ 
RD14 



SPANNED 

► . .♦ 
♦ . . ♦ 
♦NO 



*****DU ♦♦♦♦♦*♦♦♦♦ 



***************** 

**** 

* * 

* EH * 

* *-> 
**** 

***E4 +♦♦♦******* 



***************** 



*. WRITE AFTER . ♦- 



♦ ♦♦♦ 

* * 
» CU ♦ 

* * 

♦ ♦** 



♦ STORE KEY IN ♦ 

♦ SEARCH KEY E0_ * 

♦ CCW ♦ 

***************** 



CHKUSASI .♦. 

Jl ♦. 
.♦ AMER ♦. 
NO .♦ NATL STDD ♦. 
♦ . WRI TE/REWRITE . ♦ 



I 

**** 
* 

* E« 
♦ 

♦ ♦♦♦ 



♦ *♦♦ 
>♦ ♦ 

♦ AH ♦ 

♦ ♦ 

♦ ♦♦♦ 



*****F2 ********** 

* * 

* STORE KEY IN ♦ 
->♦ READ KEY AND * 

* DATA CCW ♦ 

* ♦ 
***************** 



****G2******* 



***************** 



**************** 



m *. 

ERROR 



HK01A2 
ERROR 

****F5 ********* 

* EXIT TO * 
>* ILBDDAEO * 

* * 
*************** 



GU *. *****g5********** 

.* ♦. * ♦ 

.* AMERICAN *. YES * SAVE SEEKADR * 

'. NATIONAL .* >* AND SYMBOLIC * 

♦.STANDARD .* * KEY * 

♦.READ .* * ♦ 

♦. .* ***************** 
*NO 



*****HU* ********* 



***************** 



♦***JU* ******** 

► 4 

► RETURN < 
» 4 

*************** 
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Chart HK. DA Error (ILBDDAEO) 



****A2********* 
» * 

* ILBDDAEO « 

► * 

*************** 



*****Q2* ********* 



*************** 



*****E2********** 



♦POINT TO ERROR * 
* BLOCK * 



***************** 



USER V 

*****F2 ********** 

* RESTORE * 
♦REGISTERS SAVED* 

* BY CALLING * 

* PROGRAM * 

* * 
***************** 



****G2*** ****** 
* USER ERROR * 

> PROCEDURE « 

► * 
*************** 



*****B3 ********** 

* * 
*SET ERROR CODE * 

->*AND ADDRESS OF * 
*DTF-8 IN REG * 

* * 
***************** 



V EJ01A3 
*****C3********** 

*$$BCOBER ♦ 

*!*_*_*_*_*_*_*_* 

♦EXECUTE SYSTEM ♦ 
♦ERROR PROCEDURE ♦ 
* * 

***************** 



. +ILBDDBG2 IN* 

VIRTUAL 

♦. STORAGE .♦ 



JC01A1 
*****E3********** 
♦ILBDDBG2 * 
*_*_*_*_*_*_*_*_* 

* PROCESS * 

* ABNORMAL * 

* TERMINATION * 
***************** 



****F3 ********* 
► * 

* CANCEL « 

t 4 

*************** 
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Chart HL. VSAM Initialization (ILBDINTO) 



****A1********* 
» 4 

" ILBDINTO 1 
* 4 

*************** 



♦INITIALIZATION * 



*********** 



* ISSUE GETVIS * 

* FOR FCB AND * 

* WORK SPACE * 

* * 
***************** 



* ZERO FCB * 

* * 
***************** 



*****E1 ********** 



***************** 



*****F1 ********** 



I,** ******** ****** 



****G1********* 

* RETURN * 

* * 
*************** 
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Chart HM. VSAM OPEN And CLOSE Subroutine (ILBDVOCO) (Part 1 of 2) 



****A1********* 
► ILBOVOCO, * 
» ILBOVOC1 * 
» 4 

*************** 



►INITIALIZATION * 



***************** 



BASEADDR . * . 

CI *. 
. * *. 
.* OPEN OR *. CLOSE 
♦.CLOSE REQUEST.* 1 

*• •* 1 

*. .* V 
*. .* ***** 
♦OPEN *02 * 
♦ Al* 



♦ STORE REG11 ♦ 

♦ * 

♦ * 
***************** 



***************** 



.* OPENED OF *. YES 

■. CLOSED WITH .* 

* . LOCK . * 



* F2 * 

* *— . 
*♦** 

MDO1002 V 

*****F2*** ******* 
* CLEANUP * 

* FREE STORAGE * 
>*ASSOCIATED WITH*- 

* FILE * 



***************** 



>*. 

A 

u* 

* * 

* F3 * 

* * 

♦ ♦*♦ 



.♦END OF FCB *. YES 



***************** 



OPEN ALL ACB'S 
* * 

**************** 



tt***cii** ******** 

* * 

* FINDERR * 

♦LOOP THRU ACB'S* 

* FOR ERRORS * 

* * 
***************** 



MDO6000 

***A5**** ******* 



**************** 



MDO600« 

*****B5**** ****** 
* CLEANUP * 

* FREE STORAGE * 
♦FOR FILES WITH * 

* ERRORS * 

* * 
***************** 



* SET UP STATUS * 

* KEYS IF * 

* REQUIRED * 

* * 
***************** 



* J L • 



MDO5002 

*****£|J* ********* 

* GETRBA * 

♦GET ENDRBA FOR * 

— >* FILE OPENED * 

* OUTPUT * 

* * 
***************** 



NO .*END OF FCB *. YES 



MDO7000 tf 

****E5********* 



* RETURN * 

K * 

*****♦******♦♦♦ 



*. OPEN EXTEND 



.♦SEQUENTIAL *. 
->* . ACCESS . i 



******** 



*****H3 ********** 

* ISSUE GETVIS; * 
->*BUILD SKELETAL *- 

* FIELDS ♦ 

* ♦ 
***************** 



•****HU ********** 



*****{]5* ********* 



*******♦♦•******• 



***************** 



*****j5********** 



* BLDRPL * 

♦ BUILD RPL ♦ 



♦ YES 

I *♦** 

l_>* * 

* F2 * 



***************** 



***************** 

**** 
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Chart HM. VSAM OPEN And CLOSE Subroutine (ILBDVOCO) (Part 2 of 2) 

***** 

♦ 02 * 

* Al* 



***************** 



* DETERMINE IF 
— >* FILE OPEN 



***************** 



* DEACTIVATE *- 

* LERAD/SYNAD * 

* EXIT * 

* * 
***************** 



Dl *. 
k i 

RERUN 
» . .i 
*. .* 
*NO 



fusl~cl MANIPULATION 
ROUTINE 



■15 



EE01A1 
*****02** ******** 
♦ILBDCKPO * 



♦TAKE CHECKPOINT* 
* * 

***************** 



MDC1020 .*. 

Fl < 



*****F2*** ******* 

* MOVEACBS * 

♦MOVE ALL ACB'S * 
->*TO ONE AREA AND* 

* CLOSE * 

* * 
***************** 



SUCCESSFUL 



♦.CLOSE ERRORS 



***************** 



*****H3*** ******* 



***************** 



*****J3********** 



***************** 



***************** 



126 Flowcharts 



***************** 



.* USE *. ti 
->♦. DECLARATIVE .*• 
♦. NEEDED .♦ 



* CLEANUP * 

->♦ FREE STORAGE ♦- 

♦ FOR FCB'S ♦ 

* * 
***************** 



► RETURN * 
» * 

*************** 
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Chart HN. VSAM Action Request Subroutine (ILBDVIOO) 



****A1********* 

► 4 

* ILBDVIO * 

(■ * 

*************** 



♦INITIALIZATION * 

* * 

* i 
***************** 



V 
.*. 

CI *. 
.* *. 

FILE OPEN 

' * . . *" 

+ . . * 
*YES 



♦.FIRST REQUEST.*- 



n 



********************* 

* 

* Gl 
* 
***i 

*****02* ********* 



* ACTIVATE *- 

► LERAD/SYNAD * 

► EXIT ♦ 

► * 
***************** 



ACT0000<» 

*****£! ********** 

* DETERMINE * 

* REQUEST AND * 

* BRANCH TO * 

* APPROPRIATE * 

* ROUTINE * 
***************** 



ACT00700 .*. 




ACT0070K 




Fl *. 




*****P2 ********** 


.♦ ♦. 




* * 


.* *. 


YES 


* SAVE ACTION * 


*. FILE OPEN . 




>* CODE * 


*. .* 




* * 


*. . * 




* * 


*. .* 




***************** 


*NO 








**** 










* * 










* Gl * 










* *-> 
**** 
















ACT00736 V 






****G1********* 






* 


* 




* RETURN 


* 




* 


* 




******** 


******** 









Section 2: Program Organization 127 



Licensed Material - Property of IBM 



Chart IA. Separately Signed Numeric (ILBDSSNO) 



****A1 ********* 

* 4 

► ILBDSSNO < 

► 4 
*************** 



Bl *. 
. * *. 

IS SIGN + 



*****D1********** 

* * 

* ISSUE ERROR * 

* MESSAGE, DUMP * 

* AND TERMINATE * 

* * 
***************** 



****E1 ********* 
» i 

!■ END * 
> * 

*************** 



****F1********* 

K 

► ILBDSSN1 
*************** 



.*HIGH-ORDER *. YES 

>. <* BITS=X'F* .* 

*. OR 'C .* 



*****J1 ********** 

* * 

* ISSUE ERROR * 
♦MESSAGE, DUMP. * 

* AND TERMINATE * 

* * 
***************** 



****K1 ********* 

► 4 

► END » 
*************** 



*****232********** 
*SET LOW- ORDER «* 

* BITS OF * 
->*RECEIVING FIELD*- 

* TO X'C * 

* * 
***************** 



*****C2* ********* 
*SET LOW-ORDER U* 

* BITS OF * 
->*RECEIVING FIELD*- 

* TO X'D' * 

* * 
***************** 



****C3** ******* 

► 4 

► RETURN 4 
» 4 

*************** 



*****G2 ********** 



***************** 



*****H2 ********** 



***************** 



*****j]3 ********** 



***************** 



****H 14********* 

» 4 

» RETURN * 
* * 

*************** 



128 Flowcharts 



Licensed Material - Property of IBM 



Chart JA- Test (ILBDDBGO) (Part 1 of 2) 



****A1 ********* 

* 4 

* ILBDDBGO * 
V 4 

*************** 



*************** 



. * CALL BY * 
. SEGMENTATION 
* . SUBR . * 



SYM JJ01A2/JP01A2 

*****C2* ********* 

*ILBDMP10/20 * 

*_*_*_*_*_*_*_*_* 

>* INITIALIZE * n 

* PROGRAM/ * I 

* SEGMENT * V 
********************** 

*02 * 

* F3* 

* * 



JJ01A2/JP01A2 
*****D<t ********** 
♦ILBDMP10/20 



***************** 



*****^1* ********* 
** ** 

** STXIT MACRO ** 
**TO ESTABLISH ** 
** LINKAGE ** 
** ** 

***************** 



*****FX* ********* 

* * 

* SET FIRST AND * 

* LAST EQUAL TO * 

* REGISTER 13 * 

* * 
***************** 



*****G1********** 



***************** 



*****H1 ********** 



***************** 



SYMDMP *. YES 


*_*_*_*_*_*_*_*_* 


REQUESTED . * 


>* INITIALIZE * n 

* PROGRAM * 


.* 


*. .* 


* * V 


* . .* 


********************** 


*NO 


♦02 * 






* F3* 






* * 

* 


v 




.*. 


JG01A1 


E3 *. 


*****EH ********** 


* *. 


♦ILBDFLWO * 


FLOW * . YES 


*-*_*_*_*_*_*_*_* 


REQUESTED . * 


>* INITIALIZE FOR * n 

* FLOW TRACE * 


.* 


*. .* 


* * it 


* . .* 


********************** 


♦NO 


♦ 02 * 


I **** 


* F3* 




L->*02 * 


* * 



*YES 
I **** 
1~>*02 * 
* Bl * 
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Chart JA. Test (ILBDDBGO) (Part 2 of 2) 



**** 

*02 * 
* Bl 



*****B3********** 



— >*.MAIN PROGRAM 



**** 
* 

Bl * 



***************** 



***************** 



********* 



* B2 * 

* * 
**** 



* GET ADDRESS * 
♦BEYOND LARGEST * 

* SEGMENT * 

* * 
***************** 



************** 



I ***** B2 * 

L_>* * * 

* Bl ***** 



* F3 
**** 



— >*. COUNT OPTION .* 



**************** 



*****G1 ********** 

* * 

* SAVE ILBDMP10 * 

► (SYMDMP) * 

► ADDRESS * 

* * 
***************** 



V JJ01A2 
***** HI ********** 
*ILBDMP10 * 



I— — y . LUUH 
*** 



*02 * 
* F3* 

* * 



KA01A1 
*****G3********** 
*ILBDTC00 * 
*_*_*_*_*_*_*_*_* 

* INITIALIZE * 

* COUNT DATA * 

* AREAS * 
***************** 



**************** 



V 
*****jl ********** 

♦SAVE LOAD POINT* 

* ADDRESS FOR * 

-* SYSTEM * n 

* SORT/MERGE * 

* PROGRAM * \ 
********************* 



F3 



ILBDSRTO USES 

THIS ADDRESS 

TO LOAD SORT/MERGE 

PROGRAM 



***************** 



****J3********* 
♦RETURN TO COBOL* 

♦ PROGRAM * 

* * 
*************** 
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Chart JB. Print (ILBDDBGl) 
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****A1 ********* 
► ILBDDBGl 
*************** 



JJ-LiUW, UK tkal;.e -i 
PRINT ON SYSLST 



PRINT ERROR 



EK01A1 
*****B3********** 
*$$BCOBEM * 
*_*_*_*_*_*_*_*_* 
>* MOVE ERROR *- 

* MESSAGE TO * 

* BUFFER * 
***************** 



JB01F5 
*****B4********** 
*WRITE1 * 

*_*_*_*_*_*_*_*_* 
>* WRITE ERROR *- 

* MESSAGE * 

* * 
****************** 



*** 
EI 1 



* GET CURRENT 
->*BUFFER ADDRESS 

* AND CODE 



C3 *. 

. * *. 
* 
CHECK CODE 



BRANCHING IS VIA 
DBGIRTNS BRANCH 
TABLE 



* E3 * 

V * 

**** 



RTPASS 

*****D1* ********* 

*WRITE1 * 

*_*_*_*_*_*-*_*_* 



♦EJECT 6 WR HDNG* 
***************** 



*** El ********** 

* 

SAVE BUFFER * 

ADDRESS IN * 

CURRBUFF * 

* 

*************** 



***F1********* 

RETURN TO * 

CALLING * 

SUBROUTINE * 

************** 



WRTNOEJ V JB01F5 
*****D2********** 
*WRITE1 * 

*_*_*_*_*_*_*_*_* 

* WRITE RECORD * 

* * 
***************** 



WRTFOOT V JB01F5 
*****D3********** 
*WRITE1 * 

*_*_*_*_*_*_*—*_* 

* WRITE FOOTING * 

* ZERO LINECTR * 

* EJECT * 
***************** 



WRTHEAD V JB01F5 
*****DU ********** 
*WRITE1 * 

*_*_*_*_*_*_*_*_* 

* WRITE RECORD * 

* WRITE HEADING * 

* SPACE * 
***************** 



EJHEAD V JB01F5 
*****D5********** 
♦WRITE1 * 



**************** 



EJECT1 V JB01F5 
*****J2 ********** 
*WRITE1 * 

*_*_*_*_*_*_*_*_* 

* * 

* EJECT PAGE * 

* * 
***************** 

I **** 



*****E3********** 

* * 

* TURN ON DBG1 * 

* SWITCH *< — -J 

* * 1 
********************* 



***F3 *********** 



ENTER FROM 
SEVERAL RTNES 
IN ILBDDBGl 



*****Q3********** 

* * 

* SAVE BUFFER * 

* ADDRESS IN * 

* CURRBUFF * 

* * 
***************** 



H3 *. 
. * *. 
CODE = 0, *. NO 
«, 5 .* -. 

•*. .*•* V 
* . .* **** 

*YES * * 

I * El * 



►**F5********* 

WRITE1 * 
n ************ * 



*****G5********** 

♦DETERMINE LINE * 

* COUNT AND * 

* SPACING * 

* * 
***************** 



***H5*********** 
ISSUE PUT MACRO 



WRTFOOT V JB01F5 
*****J3********** 
*WRITE1 * 

*_*_*_*_*_*_*_*_* 

* * 

* WRITE FOOTING * 

* * 
***************** 

I ***♦ 
L_>* * 

* El * 



EJHEAD V JB01F5 
*****JH********** 
*WRITE1 * 

*_*_*_*_*_*_*_*_* 

* EJECT, WRITE * 

* HEADING * 



INTERCHANGE 

BUFFER 

ADDRESSES 



********* 



******* 



******* 



****K5********* 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 



Section 2: Program Organization 131 



Licensed Material - Property of IBM 



Chart JC. STXIT (ILBDDBG2), TGT Address (ILBDDBG3), and Save Register 14 (ILBDDBG4) 



* STXIT ROUTINE *- 
*************** 



ENTERED FROM SYSTEM 
AFTER PROGRAM CHECK. 
THIS ROUTINE WAS 
SPECIFIED IN STXIT 
ISSUED BY ILBDDBGO. 



A2 *. 

.* DID *. 
* ILBDDBG2 

ABNORMALLY 
♦.TERMINATE. 



*****B2** ******** 



***************** 



C2 *. 
.* DID *. 
. * ILBDDBGO *. YES 

. ABNORMALLY .* > 

♦.TERMINATE.* 



DEAD JB01A1 

*** A3 *********** 
ILBDDBG1 



.* IN AN *. 
.* EXECUTION *. 
. STATISTICS . 
*. ROUTINE .* 



**************** 

**** 

* * 

* B3 * 

* *_> 
**** 

DUMP 

*****£3 ********** 



********* 



****C3********* 

EXIT TO * 

TERMINATE 1 

i 

*************** 



ILBDDBG3 

****A4********* 

* ENTER FROM * 

* COBOL PROGRAM * 

* * 
*************** 



*****Q4********** 

* UPDATE DATA * 
♦AREA LAST WITH * 

* CONTENTS OF * 

* REG13 * 

* * 
***************** 



****C4********* 
i i 

► RETURN * 
l> i 

*************** 



ILBDDBG4 

****A5 ********* 

* ENTER FROM * 

* COBOL PROGRAM * 

* * 
*************** 



AFTER RETURN 
FROM CALLED 
PROGRAM 



BEFORE 
BRANCH TO 
ANOTHER 
PROGRAM 



*****Q5********** 

* * 

* SAVE CONTENTS * 
♦OF REGISTER 1« * 

* IN SAVER1U * 

***************** 



****C5* ******** 
I- RETURN 
*************** 



»*** 
* 
Fl * 



*0 .*ADDRESS OF * 

+.INIT1 WITHIN 

*. REGION .♦ 



V 

Gl* *♦. 

.♦ COBOL ♦. 

. * PROGRAM * . 

. ABNORMALLY . 

♦.TERMINATE.* 



***** HI ********** 

* * 
♦SET SWITCH FOR * 

* NON- COBOL * 

* PROGRAM ♦ 

* * 
***************** 

**** 



KC01A1 
***E2 *********** 

ILBDTC20 
k * 

WRITE COUNT 
STATISTICS, * 
IF ANY 
************** 



G3 *. 

*' FLOW, 

STATE. C 
*. SYMDMP 
*. 

♦ . .♦ 
♦ NO 



H3 ♦. 
♦ ♦. 

*. 
SYMDMP . *<- 



Jl 

. *" 
► . FIRST 



YES 

'~\ 

**** 

* * 

* B3 * 



JP01A2 
*****J3 ********** 
*ILBDMP20 * 
*_*_*-*_*_*_*_*_* 
♦INITIALIZE FOR ♦<- 

♦ DUMP ♦ 

* * 
***************** 

**** 
L_>* * 

* Jl * 

* * 
**** 



STATE 
MESSAGE 
PRINTED 



*****J4********** 

♦ PRINT PSW ♦ 

♦ ABNORMAL * 

♦ TERMINATION * 

♦ MESSAGE ♦ 

♦ * 
***************** 



**** 

* * 

* G5 * 



,--~l 



***« 

* * 

* Jl * 

* * 

**** 



V JG01A4 
*****H5********** 
♦ILBDFLW2 * 
*_*_*_*_*_*_*_*_* 

* PRODUCE FLOW * 

* TRACE * 

* * 
***************** 

**** 



***************** 



JF01A1 
*****K5********** 
♦ILBDSTNO * 
*-*-*-*_*_*-*-*-* 
COMPLETE ♦ 

* MESSAGE ♦ 

* * 
***************** 



->* 



L_>* * 

* Fl * 

* * 
**** 
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Chart JD. Dynamic Dump (ILBDDBG5) 



****A1 ********* 
fr * 

► ILBDDBG5 « 
t * 

*************** 



*****B1 ********** 



♦SAVE REGISTERS * 
* IN SAVE AREA * 



************** 



*****C1* ********* 



***************** 



*****D1 ********** 

* * 

* * 
*GET SYMDMP ADDR* 

* * 

* * 
***************** 



V JH01A3 
*****£!********** 

♦SYMDMP * 
*_*_*_*_*-*-*_*-* 

* GIVE DYNAMIC * 

* DUMP * 

* * 
***************** 



*****F1********** 



***************** 



V 
*****G1********** 

♦GET INSTRUCTION* 
*TO BE EXECUTED * 

* IN COBOL ♦ 

* PROGRAM ♦ 

* * 
***************** 



*****H1********** 



***************** 



*****J1********** 

* ♦ 

♦ ADD LENGTH OF ♦ 
♦INSTRUCTION TO ♦ 

♦ RETURN ADDR ♦ 

* ♦ 
***************** 

I *♦** 
L_>* * 

♦ B3 ♦ 

* * 
**** 



ENTER FROM COBOL 
PROGRAM VIA PGT TO 
CONTROL PROGRAM 
OF DYNAMIC DUMP 



**** 

♦ ♦ 

♦ B3 * 

***♦ J 
*****B3 ********** 



***************** 



MOVE 

*****C3********** 

♦ MOVE ♦ 
♦INSTRUCTION TO ♦ 

♦ ILBDDBG5 AREA ♦ 

♦ (INS) ♦ 

♦ ♦ 
***************** 



*****D3** ******** 



***************** 



*****E3********** 



***************** 



*****P3 ********** 

♦ EXECUTE ♦ 
♦INSTRUCTION IN ♦ 

♦ ILBDDBG5 AREA * 

♦ (INS) * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦*** 



****Q3********* 

♦RETURN TO COBOL+ 

♦ PROGRAM ♦ 

♦ ♦ 
♦♦♦♦♦****♦♦♦••* 
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Chart JE. Range (ILBDDBG6) and Chose Debug File (ILBDDBG8) Subroutines 



****A1********* 

» * 

► ILBDDBG6 * 
» * 

*************** 



*****B1 ********** 



ENTER FROM 
GOBACK CODE TO 
INDICATE CALLED 
PROGRAM IS BEYOND 
SYMDMP RANGE 



****A?********* 

► 4 

► ILBDDBG8 * 
t * 

*************** 



***B3 *********** 



***************** 



GOBACK IN *. YES 

HIGHER . * 

. PROGRAM .* 



*****C2* ********* 

* * 
*TURN ON 'GOING * 

->*OUTSIDE SYMDMP * 

* RANGE' SWITCH * 

* * 
***************** 



**************** 



****C3********* 

► * 

* RETURN * 

» * 

*************** 



* RETURN * 

► * 

*************** 
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Chart JF. Statement Number (ILBDSTNO) (Part 1 of 2) 



****A1********* 
► ILBDSTNO * 

* 4 

*************** 



FLOW ALSO 



****B2 ********* 
► * 

* RETURN * 

* 4 
*************** 



*****C2********** 



*********** 



*****D1 ********** 



***************** 



*****£].********** 

* * 
*GET REGISTER 13* 

* FROM STIXIT * 

* BLOCK * 

* * 
***************** 



*****G1 ********** 

* * 

* CALCULATE * 

* INTERRUPT * 

* ADDRESS * 

* * 
***************** 



*****jl ********** 

* * 
♦CALCULATE ADDR * 

* OF AEENDING * 

* INSTRUCTION * 

* * 
***************** 



V 

.* . 

Kl *. 

.* ADDR *. 

* BETWEEN * 

START DCL S 
* . QRTNS . * 



**** 

* * 

* F2 * 

**** ~\ 
V 
*****F2* ********* 

* * 

* GET REGISTER * 
>* It, SET SW * 

* * 

* * 
***************** 



♦REGISTER 14*. YES 


= .* -, 

.*•* V 


*. .* ***** 


*NO *02 * 




* J2* 




* * 







*****H2 ********** 

* CALCULATE * 

* ABENDING * 

* INSTRUCTION * 

* ADDR USING * 

* REGISTER It * 
***************** 

**** 
L_>* * 

* A3 * 



SW 


ON 


* 


* 


-~i 


*. 








***** 


* 

A 








*02 * 

* J2* 

* * 



**** "J 

*****A3********** 



**************** 



k****B3 ********** 

r PROCTfi 

3INDX, A 

ENDPGM 

* * 

***************** 



C3 
, * 
* 
CURPTY 



.* . 

CU *. 

.* ABEND *. 

.*INSTR ADDR *. 

->*.BTW START DCL. 

*. £ QRTNS .* 



*****D3**+******* 



***************** 



*****E3 ********** 

* * 

* CALCULATE * 
♦ORIGIN OF FIRST* 

* FRAGMENT * 

* * 
***************** 

**** 



**** 

*****F3********** 

* CALCULATE * 

* RELATIVE * 

* ADDRESS OF * 

* ABENDING * 

* INSTRUCTION * 
***************** 



*****G3********** 



***************** 



K3 



*****C5********** 

* * 

* GET ADDR OF * 
->*TRANSIENT AREA * 

* FROM INIT 7 * 

* * 
***************** 



*****D5* ********* 

* * 

* CALCULATE * 
♦ORIGIN OF FIRST* 

* FRAGMENT * 

* * 
***************** 

**** 





*. YES 


END SEGINDX .* , 

.* J 
*. . * V 


*. .* **** 


* * * 


a * m * 




* * 




**** 



***** FH ********** 



***************** 



***** 
*02 * 

* A2* 



* *** *H4 ********** 



***************** 



10 



*YES 
I **** 
U_>* * 
* A3 * 



.* ABENDING 

->*.INSTR ADDR IN.* -, 

*. TRANSIENT.* I 
*.AREA .* V 
*. . * ***< 



A3 * **** 
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Chart JF. Statement Number (ILBDSTNO) (Part 2 of 2) 

***** 

*02 * 
* A2* 



*****A2**** ****** 



*****£!********** 



***************** 



*****C1********** 



***************** 



.* CURPTY = * 

>. NEXT PTY IN 

*. SEGINDX .* 



******** 


********* 


**** 




* * 




* B2 * 




* *-> 




**** V 


. * . 


B2 ♦. 


. * *. 


.♦ABEND INST *. 


*.ADDR: SEGINDX.* 


*. FRG 


ADR .* 



->♦. LPTY 



*****C2** ******** 



***************** 



*****D2********** 



***************** 



*****£2 ********** 



.* END OF *. 

SEGINDX 

*. .* 


NO 


* SET CRDPTR = * 

* PTR1+3 * 

* * 


*. . * 




* * 


♦. .* 




***************** 


♦YES 

I **** 

L_>* 




**** 




* 


* * 




♦ B2 

* 


* 
* 


* F2 ♦ 

* *-> 




**** 




**** 





*****F2*** ******* 



***************** 



*****Bt ********** 



***************** 



*****G1* ********* 



***************** 



G2 *. 

. * REL * . 

ADDR OF 

ABENDING 

. INSTR: . 

*.VRBAD.* 

*. .* 



* H2 ♦ 

♦ *-> 

**** 



*****H2********** 

* * 

* MOVE CARD NO. * 
*AND VERB NO. TO* 

* OUTPUT AREA * 



■—* 

**** 

* * 

* Jl * 

* * 
**** 



*. 


.* **** 




***************** 


♦ NO * 




* 






**** 


* 


F2 


* 


**** 




* * 


* 




* 


♦ 02 * 




* Jl * 


**** 




* J2 *-> 




* *-> 








* * 




**** 








**•* 




V 






V JB01A1 


*****jl********** 






*****J2********** 


* * 






♦ILBDDBG1 * 


* SET CRDPTR = * 






*_*_*_*-*_*_*-*_* 


* CRDPTR- 5 * 






* GET BUFFER * 


* * 






* ADDRESS * 


* * 






* * 


***************** 






***************** 


**** 










L>* * 










* H2 * 










* * 










*♦** 
















V 








*****K2** ******** 








* * 








♦MOVE MESSAGE TO* 










* BUF1 


-ER * 
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***************** 



*****K2** ******** 
*SET FIRST TIME * 

* SWITCH AND * 
>* RESTORE *- 

* REGISTERS * 

* * 
***************** 



****KU********* 
» * 

> RETURN * 

► 4 
*************** 



Chart JG. Flow Trace (ILBDFLWO) 
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****A1* ******** 

k * 

► ILBDFLWO * 
k 4 

*************** 



Bl *. 
.* *. 

INITSW ON 



*****Q1* ********* 

* * 
*GET ADDRESS OF * 
♦TRACE TABLE IN * 
*TGT AND FLOWSZ * 

* * 
***************** 



*****Dj. ********** 



***************** 



*****£!********** 

* * 

* * 
*TURN INITSW ON * 

* * 
***************** 

**** 



**** 



****A2********* 

► ILBDFLW1 * 

► * 
*************** 



*****B2 ********** 



***************** 



C2 *. 
.* DOES *. 
YES .* PROG-ID *. 

*. MATCH ONE IN .* 

* . TABLE . * 



*****£2********** 



***************** 



V 



****F1********* 

► * 

► RETURN * 

i * 

*************** 



***************** 



*****G2*** ******* 

* * 

* ENTER 3-BYTE * 

* CARD NUMBER * 

* INTO TABLE * 

* * 
***************** 



***** ^2** ******** 

♦ * 
♦POINT NXTAVL TO+ 

♦ NEXT SLOT IN ♦- 

♦ TABLE * 

♦ ♦ 
***************** 



♦♦♦♦A3 ********* 
^ * 

* ILBDFLW3 < 

» * 

*************** 



*****B3 ********** 



***************** 



*****C3********** 

♦ SET MESSAGE ♦ 

♦ ILAC159I: NO ♦ 

♦ PROCEDURES ♦< 

♦ TRACED ♦ 



****** 



**** 



****** 
**** 



*****D3********** 

* SET ERROR ♦ 
♦MESSAGE: TRACE ♦ 

>* IS NON- * 

* CONTIGUOUS ♦ 

* * 
***************** 



¥ Fl ♦ 
t * 
**** 



****AU********* 
» * 

* ILBDFLW2 * 
» * 

*************** 



.♦INITSW OFF * 
. (NO TRACING 
♦. DONE) .♦ 



.♦ NXTAVL = +. 
.PBEG AND LBEG. 
♦. =0 .♦ 



HEADLINE 

*****D1> ********** 

♦ SET ASA ♦ 

♦ CHARACTER AND ♦ 

♦ MOVE HEADER TO ♦ 

♦ BUFFER ♦ 



*, 


. * 


**** 


♦ YES 
**** 
* * 


* * 

* Fl ♦ 

* * 


* C5 ♦ 




**** 


* *_> 

**** 






WRITDIAG V 

***C5******+**** 


♦ PUT OUT 
DIAGNOSTICS 


* 



**************** 
**** 



********** 



****** 



WRITEBUF V JB01A1 
***Et *********** 
ILBDDBG1 

r — > WRITE BUFFER 



**************** 



LASTPRNT JB01A1 
***F5* ********** 
ILBDDBG1 



**************** 
**** 



V 
*****GH ********** 

♦ CONVERT LINE ♦ 

♦ NUMBER TO DEC, ♦ 
I * UNPACK. FILL ♦ 

♦ BUFFER WITH ♦ 

♦ TABLE ENTRIES ♦ 
***************** 



*****H4 ********** 

♦ TURN LBEG ON * 

♦ (INDICATES ♦ 
>♦ TABLE ♦- 

♦ WRAP-AROUND) ♦ 



***************** 



*****H5**** ****** 

♦ * 

♦ POINT NXTAVL ♦ 
->♦ BACK TO START ♦ 

♦ OF TABLE ♦ 

♦ ♦ 
***************** 



< 

V 

.♦. 

J3 ♦. 

.♦ ♦. 

. * 

*. FLW1 ENTRY 



****jlt ********* 
♦ RETURN TO 
->^CALLER VIA Rlt 
* 

*************** 



****K3********* 
♦RETURN TO MAIN ♦ 
♦PROGRAM VIA Rl * 

* * 

*************** 
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Chart JH. SYMDMP - Overall 



****A1********* 

* ENTER FROM * 

* COBOL PROGRAM * 

* * 
*************** 



V JA01A1 
*****B1 ********** 
♦ILBDDBGO * 
*_♦_*_*_*_*_*_*_* 

* TELL SYMDMP * 
♦INIT, ABEND, OR* 

* DYNAMIC DUMP * 
***************** 



V JJ01A2 
***** 31 ********** 

♦ILBDMP10 * 
*_*_*_*_*_*_*_*_* 
♦COMPUTE ADDRS S* 

* MODULES AND * 

* READ CARD * 
***************** 



*** 



*.EOF ON SYSIPT. 



*****F1 ********** 
♦ILBDMP11 * 
*_*_*_*_*_*_*_*_* 

* BLD PCONTROL * 

* FROM PGM-CTRL * 

* CRD, READ CRD * 
***************** 



* DOES CARD 
START WITH 
► . NUMBER . 



JM01A2 
***** HI ********** 
*ILBDMP12 * 
*_*_*_*_*_*_*_*_* 
>* BLD DYNAMTAB * 
*ENTRY FROM LINE* 
* CONTROL CARD * 
**************** — 



*****E2********** 

* STORE SIZE OF * 
♦SYMDMP OVERLAY * 

->* SYMINIT WITH *- 

* SYMCNTRL * 

* * 
***************** 



* DOES CARD 
START WITH 
*. NUMBER . 



JP01A2 
*****&3********** 

*ILBDMP20 * 
*_*_*_*_+_*_*_*_* 
>* DETERMINE * 
♦MODULE TO FETCH* 
* * 

***************** 



C3 *. 
.* * . 
. * * 

♦.DYNAMIC DUMP 



JR01A1 

*****B4********** 

♦ILBDMP21 ♦ 

*_*_*_*_*_*_*_*_* 

->* STORE COBOL *- 

* ADDRS * 

* * 
***************** 



C« *. 

.♦DOES ON*. 

* COUNTER * 

PERMIT DUMP 



IF ANY DYNAMTAB 
OVERLAY MAIN 
STORAGE WHERE 
REQUIRED 



*****D3 ********** 
♦ILBDMP21 * 
*_*_*_*_*_*_*_*_* 
♦OPEN DEBUG FILE* 

♦ RELOC COMPUTE * 

* LOAD ADDRS * 
***************** 



JW01A2 
*****E3 ********** 
♦ILBDMP25 * 
*_*_*_*_*_*_*_*_* 



***************** 
**** 



F3 
*♦♦♦ 



*_> 



JS01AI 
*****F3 ********** 
♦ILBDMP22 * 
*_*_*_*_*_*_*_*_* 

->* GET DATATAB * 
♦ENTRY FOR NAME ♦ 
♦ * 

***************** 



JV01A2 

*****J3********** 
♦ILBDMP21 ♦ 
*_*_*_*_*_*_*_*_♦ 

* DUMP PD, SD, ♦ 

*RD, TGT, INDEX * 

***************** 



JD01A1/JC01J1 
****G5* ******** 
► RETURN TO * 
i" ILBDDBGO/2 * 
* * 

*************** 



JU01A2 

*****HU ********** 

♦ILBDMP23 * 

*_*_*_*_*_*_*_*_* 

->* DUMP LEVEL * 

* DESCRIPTION * 

* ITEM * 
***************** 

**** 
L_>* * 

* F3 * 



JN01A1 
►****Ki ********** 

►ILBDMP13 * 

► PROCESS FOR *- 
* DYNAMTAB * 
» * 

***************** 



JO01A2 
*****K2* ********* 
♦ILBDMP1H * 
*_*_*_*_*_*_*_*_* 
>*SEARCH CARD FOR* 
* CARD NUMS ♦ 



****************- 



SEARCH FILE 
FOR NAMES; ENTER 
TABLE LOCATORS 
IN DYNAMTAB 



ENTER PRIORITY 
AND ADDR IN 
DYNAMTAB 
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Chart JI. IODISK/IOTAPE (ILBDMP01/ILBDMP02) 
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****A2 ********* 

* ILBDMP01 * 

* ILBDMP02 * 

K 4 

*************** 



*****PX ********** 



B2 *. 

► " " * 

IS DTF OPEN 



V 
2 .*. 

C2 *. 

.* SAME *. 

, * FILE AS * 

.INDICATED BY 

*.FCONTROL .+ 



***************** 



♦MOVE FILE NAME * 

* 6 SYSNNN FROM * 
*PCONTROL TO DTF* 

* * 
***************** 



*****F2********** 



* POINTS * 

* ("REWIND" TO * 

* START) * 

* * 
***************** 


* OPEN (R) THE * 

* DTF * 

* * 

* * 
***************** 


**** 
l_>* * 
* C3 * 


**** 
L_>* * 
* C3 * 



■ SWITCH * . 

SINGLE OR . 

».ONEBUF ON.* 



**** 

* * 

* C3 * 

* *-> 
**** 

READIT 

*****C3********** 

* * 
♦READ BLOCK TURN* 

* OFF SWITCH * 

* SINGLE * 

* * 
***************** 



♦CHECK LAST READ* 

* * 

* * 
***************** 



*****F3 ********** 

* * 

* ISSUE NOTE * 
♦STORE BLOCK ID * 

* IN NOTEADR * 

* * 
***************** 



V 
. *. 
G3 *. 
. * *. 
.* *. OK 

♦.ONEBUF SWITCH.*— 
*. .* 

*. .* 
♦. .♦ 
♦ OFF 



♦ READ BLOCK 



***************** 



***************** 



*****C1 ********** 

* * 
♦ISSUE POINT TO ♦ 

♦ BLOCK ID IN ♦ 

♦ PNTADR ♦ 

* * 
***************** 



* SET SINGLE ON ♦ 

* * 

* * 
***************** 



READ BLOCK 



***************** 



♦CHECK LAST READ* 
+ * 

* * 

******♦****♦**♦♦* 



READEXIT V 

*****j3********** 

* PUT CURRENT * 
♦BUFFER ADDR IN ♦ 

♦ REG 3 AND A ♦ 

♦ BUF1 ♦ 

* ♦ 
***************** 



****K3********* 

► RETURN TO * 

► CALLER * 
l> 4 

*************** 



***************** 



****C5*******+* 
► RETURN * 
*************** 
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Chart JJ. SYMINIT (ILBDMP10) 



****A2********* 
k * 

► ILBDMP10 * 
^ * 

*************** 



START V 

*****32********** 
♦COMPOTE STORAGE* 

* AVAIL FOR * 

* PROGRAM AND * 
♦LOAD POINTS OF * 

* OTHER MODS * 
***************** 



*****C2********** 

* * 

* * 

* OPEN SYSIPT * 



SYMINIT 

CALLED BY ILBDDBGO 
WHEN SYMDMP IS IN 
EFFECT. CALLED ONCE 
PER FUN UNIT 



***************** 



JK01A1 
*****D2** ******** 
♦READIPT ♦ * 

*_*_*_*_*_*_*_*_*EOF * 

* READ CONTROL * >* CLOSE SYSIPT 

* CARD * 



***************** 



DPROG V JL01A2 
*****E2********** 
*ILBDMP11 * 
*_*_*_*_*_*-*_*_* 

* SCAN PROGRAM- * 

* CONTROL CARD. * 
♦READ NEXT CARD ♦ 
***************** 



IS FIRST 

ELEMENT 

. NUMERIC 



FETCHPHS V JM01A2 
*****G2**+ ♦♦♦♦♦** 
♦ILBDMP12 ♦ 
*_*_*_*_*_*_*_*_* 

* SCAN LINE- ♦ 

* CONTROL CARD. * 
*BUILD DYNAMTAB * 
***************** 



FETCHPHS V JO01A2 
*****jj2 ********** 
♦ILBDMP14 ♦ 
+_*_*_*_*_*_*_*_* 

* COMPLETE * 

* DYNAMTAB WITH ♦ 

* CARDNUM INFO ♦ 
♦♦********♦♦♦♦♦** 



— >*.EOF ON SYSIPT. ♦- 



***************** 



*****D4 ********** 

* STORE SYMDMP * 

* SIZE IN * 
>* ILBDDBGO. * 

* COMPUTE FREE ♦ 

* STORAGE LEFT * 
***************** 



***************** 



FGTCHPHS 

V JP01A2 
****?!)********* 

* TRANSFER TO * 

* ILBDMP20 ♦ 

* * 
*************** 
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Chart JK. READIPT/ERROR (in ILBDMP10) 



****A1********* 

+ * 

* READIPT/ERROR * 

* * 
*************** 



B2 



**** 

* * 

* B"» ♦ 

* * 
**** 

*****B4*i 



******** 



. * 



CI *. 

. * *. 

.♦PROGRAM-ID *. 



*****Q1 ********** 



**************** 



JB01A1 
***** El ********** 
♦ILBDDBG1 * 
♦_*_*_*_*_*_*_*_* 

* CALL $$BCOBEM * 
*TO WRITE ERROR * 

* MSG * 
***************** 



***** pi ********** 

* * 
♦INCREMENT ERRORS 

* COUNT FOR ♦ 

* FOOTING ♦ 

* * 
***************** 



****G1********* 

► 4 

► RETURN 1 

► 1 
*************** 



->*. FLUSHSW 

, . * 
*ON 



.* 



.♦SCANNED ALL*. NO 

->*. CARD (COL > .♦ 

*. 70) .♦ 



♦ CLOSE SYSIPT 



***************** 



*****E2*« ******* 



**************** 



***************** 



JB01A1 
*****D3********** 
♦ILBDDBG1 ♦ 
*_*_*_*_*_*_*_*_* 

* * 
♦PRINT NEXT CARD^ 

* * 
***************** 



*****F3 ********** 

* * 

* * 

* COL =0 ♦ 

* * 

* * 
***************** 

**•* 



!■******* 



*****C4 ********** 
♦SET POINTER TO ♦ 

♦ END OF LAST ♦ 
♦ELEMENT (BUFFERS 

♦ + COL) ♦ 

♦ * 
***************** 



IS BYTE 
BLANK OR 
. COMMA 



*****jrt|********** 



***************** 



COLUMN 72 



*****H4 ********** 

* * 

* * 

* SET EOCSW ON ♦ 

* * 

* * 
***************** 



*****B5********** 

* * 

* STORE ADDRESS ♦ 
-->*OF NEW ELEMENT ♦ 

♦ AT AELM ♦ 

♦ ♦ 
***************** 



C5 ♦. 

.♦IS BYTE*. 
LETTER, 
HYPHEN, 

. NUMBER . 



***************** 



*****F5********* 

♦ STORE COL. 
♦COMPUTE LENGTH 

♦ AND STORE AT 

♦ LEN 



********* 



******* 



♦♦***H5*+******** 

* * 

* * 

* SET NUMSW ON ♦ 

* * 

* * 
***************** 



*****J5********** 

* * 
♦CONVERT NUMBER ♦ 

* TO BINARY AT ♦ 

♦ DBWORD ♦ 

♦ ♦ 
***************** 



* RETURN 

************* 
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Chart JL„ SCANP (ILBDMPll) 



****A2********* 
» * 

* ILBDMPll * 

» * 

*************** 



SCANP 

ENTER FROM ILBDMP10 
TO SCAN PROGRAM 
CONTROL CARDS 



JK01A1 

*****B3********** 

♦ERROR * 

*_*_*_*_*_*_*_*_* 

->* ISSUE MESSAGE ♦- 

* 153 * 

* * 
***************** 



*****C2********** 

* INITIALIZE * 

* PCONTROL AND * 
♦SWITCHES, STORE* 

* PROGRAM- ID * 

* * 
***************** 



GETELM V JK01A1 
*****D2********** 
♦READIPT * 
*_*_*_*_*_*_*_*_*END-OF-CARD 

* GET NEXT * 

* ELEMENT * 



************ 



***** 



JK01A1 
*****E3********** 

♦ERROR * 

*—*-*-*—•_*-*—*-* 



***************** 



NXTCRD JK01A1 

***** £4 ********** 

♦READIPT * 

*_*_*_*_*_*_*_*_* 

->* READ NEXT * 

* CONTROL CARD * 

* * 
***************** 



*****F2* ********* 



***************** 



*****G2********* 

* 

* 

* SET PTABOK ON 



******** 

**** 

* * 

* H2 * 
*-> 



********* 



**** 

JK01A1 GOODRET 
*****H2********** *****u3********** 

*READIPT *END-OF- * ♦ 

*_*_*_*_*_*_*_*_*CARD ♦CHAIN PCONTROL * 

>* GET NEXT * >* POINTERS * 

* ELEMENT * * * 



***************** 



*****JX ********** 



***************** 



V JK01A1 
*****j3**** ****** 

♦READIPT * 

*_*_*_*_*_*_*_*_* 



YES .♦ FIRST 

L * . ELEMENT 

♦. NUMERIC 



*< *. VALID OPTION .♦ 



***************** 



V JK01A1 
*****K2*** ******* 
♦ERROR * 

*_*_*_*_*_*_*_*_* 

* * 

* ISSUE MESSAGE ♦ 

* * 
***************** 

**** 



***************** 



****X3********* 

► RETURN TO * 

► ILBDMP10 i 

► 4 
*************** 
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Chart JM. 



SCAND (ILBDMP12) 



SCAND 

ENTER FROM 
ILBDNP10 TO 
PROCESS LINE- 
CONTROL CARDS 



****A2********* 

► 4 

► ILBDMP12 * 

*************** 



*****B2* ********* 

* * 

* * 
*OPEN DEBUG FILE* 

* * 

* * 
***************** 



*****C2********** 

* STORE PROGSUM * 
♦INTO IN COMMON,* 

* INST TABLE * 

* PTRS . * 

* * 
***************** 



* D2 * 

* *_> 

**** 

*****q2********** 

* CREATE NEW * 
♦DYNAMTAB ENTRY,* 

* CHAIN, STORE * 

* CARD NUMBER * 

* * 
***************** 



JK01A1 
*****E2********** 
*READIPT * 
*-*-*—*-*—*-*-*-* 

* GET NEXT * 

* ELEMENT * 

* * 
***************** 



V JK01A1 
*****H2 ********** 
♦READIPT * 
*_*_*_*_*_*_*—*_* 



***************** 



— >*. 'ON' 



*****B3********** 

* LENGTHEN * 

* DYNAMTAB BY 8 * 
->*BYTES. SET 'ON'* 

* SWITCH * 

***************** 



JK01A1 
*****C3 ********** 
♦READIPT * 



******** 



*****E3********** 

* * 

* STORE IN NEXT * 
-* ON-COUNTER IN * 

* DYNAMTAB * 

* * 
***************** 



* — n < 



. * KEYWORD * . 
. (HEX, ALL, .< 
♦.THRU, OF).* 



*****C4********** 

* * 

* SET * 

* CORRESPONDING * 

* SWITCH * 

* * 
***************** 



JK01A1 
*****D4 ********** 
♦READIPT * 
*_*_*_*_*_*_*_*_* 

* GET NEXT * 

* ELEMENT * 

* * 
***************** 



NXTDYCRD JK01A1 
♦****B5* ********* 
♦READIPT * 
*_*_*_*_*_*_*_*_* 
r — >* * 

♦ READ NEXT CARD * 

* * 
***************** 



*. END OF CARD . ♦- 



*****H4 ********** 

* CREATE NEW * 

* IDENTIFIER * 

* ENTRY IN * 

* QUALNAMS AND * 



► Jit********** 



* STORE NAME IN ♦ 
♦QUALNAMS ENTRY * 



FIRST 
ELEMENT 
. NUMERIC 
*. . * 


♦. YES 


*. . * 


♦ ♦** 


♦ NO 


* 

♦ D2 






**** 



JN01A1 
*****D5* ********* 

*ILBDMP13 * 
*_*_*_*_*_*_*_*_* 
♦FETCH FINDNAMS ♦ 
♦TO LOCATE NAMES* 
♦ IN DEBUG FILE ♦ 
***************** 



*****F5********** 

* * 

* * 

* SET DTABOK ON * 

* * 

* * 
***************** 



*****G5********** 

* * 

* PUT DYNAMTAB ♦ 

* POINTER IN ♦ 

* PCONTROL * 

* * 
***************** 



****H5* **♦♦♦♦♦* 
► RETURN TO * 

* ILBDMP10 * 

* * 
*************** 



**** 

>* * 
* B4 * 

**** 



***************** 



V JK01A1 
*****K4 ********** 
♦READIPT ♦ 
*-*-*—*-*-*-*-*—* 

r * GET NEXT * 

1 ♦ ELEMENT ♦ 
V ♦ ♦ 

********************* 
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Chart JN- FINDNAMS (ILBDMP13) 



****A1* ******** 

* * 

* ILBDMP13 * 

* * 
*************** 



►♦♦♦Bl********** 



***************** 



JI01A2 
*****d********** 

*ILBDMP01/02 * 
*_*_*_*_*_*_*_*_* 

* POINT TO 1ST * 
♦DATATAB BLOCK, * 

* READ * 
***************** 



FINDNAMS 

ENTER FROM ILBDMP12 
WHEN LAST LINE 
CONTROL CARD IS 
PROCESSED 



**** 

* * 

* B2 * 



3 V 



**** 
MORETOGO 

*****B2********** 

* * 

* POINT TO NEXT * 
♦QUALNAMS ENTRY * 

* * 
***************** 



* C3 * 
**** ij 



♦.END OF TABLE .*- 



* BH * 

* *_- 1 
**** J 

*****B4 ********** 
♦POINT TO FIRST * 

* ENTRY OR * 

* QUALNAMS 6 * 

* DYNAMTAB * 

* * 
***************** 



*****C5********** 



************** 



***************** 



*****D3********** 



***************** 



**** 
t * 

* BU * 

* 4 
**** 



V JI01A2 
*****G2 ********** 
*ILBDMP01/02 * 

*_*_*_*_*_*_*_*_* 

* READ NEXT * 

* DATATAB BLOCK * 

* * 
***************** 



♦POINT TO FIRST * 
♦QUALNAMS ENTRY *<— 



***E3** ******** 



********** 



*****£3********** 



. * WAS * . 
.* QUALNAMS *. NO 
*. ENTRY FOUND .* 



.* IS THERE *. YES 

.DATADIR ENTRY.* 

*. FOR IT .* 



***** pi) ********** 

* ADD ENTRY TO * 

* DATADIR FOR * 

* BLOCK HAVING * 

* THIS ENTRY * 

* * 
***************** 



*****G1»********** 

* * 

* ENTER DATATAB * 

* TABLE- LOCATOR * 

* IN DYNAMTAB * 

***************** 



*_*_*_*-*_*_*_*-* 



***************** 



>****G5* ********* 



* MARK DYNAMTAB * 
♦ENTRY AS, ERROR* 



*************** 



*****Ht| ********** 



* POINT TO NEXT * 
♦QUALNAMS ENTRY ♦ 



***************** 

**** 
L_>* ♦ 

♦ C3 ♦ 

* ♦ 
***♦ 



***************** 



***************** 



J3 


*. 


J« 


*. 


. ♦ ♦. 


. * * . 


.♦IS IT FIRST*. NO 


.* *. 


♦.NAME IN ENTRY. ♦ , 

*• •* 1 

♦. .♦ V 


*.END OF TABLE .* 


*. .* 


*. . * 


*. .* **** 


*. . * 


♦YES ♦ ♦ 


*YES 




* B2 * 


1 




* * 








**** 






' 


7 




JM01E5 


*****K3********** 


7 


♦MARK IDENTIFIER* 


****K>I********* 


♦FOUND, STORE IN* 


* RETURN TO * 


♦ENTRY BLOCK ID * 


♦ ILBDMP12 ♦ 


* 6 DI 


3PL. * 


* 


* 



************ 



************* 
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Chart JO. FINDLOCS (ILBDMP14) 
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FINDLOC 

ENTER FROM 
ILBDMP10 AFTER 
ILBDMP13 SWITCH 



*****B1 ********** 
♦SET ASIDE ROOM * 
♦TO READ IT IN. * 

* STORE ADDRESS *< 

* IN PCONTROL * 

* * 
***************** 



**♦*♦ El ***♦*♦**♦* 

* GET NEXT * 
♦CARDINDX ENTRY * 
*(READ NEXT BLK ♦<- 

* IF NEEDED) * 



***** 



!■****** 



***** HI ********** 

* GET NEXT * 

* SEGINDX ENTRY * 
*(READ BLOCK IF ♦<- 

* NEEDED) * 

* * 
***************** 



****A2********* 

* 4 

* ILBDMP1H * 

* 4 
*************** 



V JI01A2 
*****C2* ********* 
*ILBDMP01/02 * 
*-*-*-*-*_*-*-*-* 
♦POINT AND READ * 
♦FIRST CARDINDX ♦ 
♦ ENTRY * 
***************** 



*****D2*** ***♦♦♦♦ 

♦ SEARCH ENTIRE * 

♦ DYNAMTAB FOR * 

♦ MATCH, STORE ♦ 

♦ PRIORITY IN ♦ 

♦ DYNAMTAB * 
***************** 



E2 *. 
.+ LAST ♦. 
. ♦ CARDINDX * 
.ENTRY LOOKED 



V JI01A2 
*****F2********** 
*ILBDMP01/02 * 
*_*_*_*_*_*_*_*_* 
♦POINT AND READ * 

* FIRST SEGINDX * 

* ENTRY * 
***************** 



V 

*****G2********** 
♦SEARCH DYNAMTAB ♦ 

* FOR PRIORITY/ ♦ 

* FRAG MATCH, * 

* SAVE SEGINDX * 
*ENT IN DYNAMTAB* 
***************** 



. * LAST * . 
.SEGINDX ENTRY.* 
♦.LOOKED AT.* 



* M * 

* *— 1 
**** 

V JI01A2 
*****A4 ********** 

*ILBDMP01/02 * 
*—*—*-*_*_*_*_*_* 

* GET PROCINDX * 
♦ENTRY FOR SEGI-+ 
*NDX ENTER SAVED* 
***************** 



GTPXBLK V 

*****B4********** 
♦SEARCH PROCINDX* 
* (READ NEXT BLK * 
♦IF NEEDED) FOR * 

* CLOSEST MATCH * 

* FOR CARD NUM * 
***************** 



JI01A2 
*****CH* ********* 
♦ILBDMP01/02 * 
*_*_*_*_*_*_*_*_* 

♦ GET * 

♦ CORRESPONDING ♦ 

♦ PROCTAB BLOCK ♦ 
***************** 



*****DH* ********* 

♦SEARCH PROCTAB * 

* BLOCK FOR * 

* CARDNUM MATCH * 

* * 
***************** 



MATCH FOUND 



*****FH* ********* 
♦ENTER RELATIVE ♦ 

♦ ADDR. FROM ♦ 

♦ PROCTAB IN ♦ 

♦ DYNAMTAB ♦ 



******** 



**** 



V 
*****F5********** 

♦ MARK CARD ♦ 

♦ NUMBER IN ♦ 

♦ DYNAMTAB AS ♦ 
*X'FF' FOR ERRORS 

***************** 



JK01A1 
*****G5*++++^++** 
♦ERROR ♦ 

*_*_*_*_*_*_*_*_* 

* * 

* MESSAGE 151 ♦ 

* * 
***************** 



.* PROCESSED ♦. YES 

♦.LAST DYNAMTAB.* 

* . ENTRY . * 



****H5********* 

► RETURN TO * 

► ILBDMP10 * 

k 4 

*************** 



NXTDY V 

*****jt|********** 



***************** 

I **** 
L_>* * 
* A4 ♦ 



***************** 

**** 
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Chart JP. 



SYMCNTRL (ILBDMP20) 



SYMCNTRL 

ENTER FROM 

ILBDDBGO, 

ILBDDBG5 , 

ILBDDBG2 

FOR I NIT OR 

DUMP (ABEND OR 

DYNAMIC) 



►**A2********* 
* 
ILBDMP20 * 
************** 



, *FIRST CALL *. YES 

(FROM .* 

*.ILBDMP10) . * 



*****B3********** 

* t 

* INITIALIZE * 
->* COMMON FOR PASS* 

* 2 * 

* * 
***************** 



. * CALL FOR 
. INITIALI- 
*. ZATION . 



*****E2********** 



***************** 



JR01A1 
* * ** *j> 2 ********* * 
*ILBDMP21 * 
*_*_*_*_*_*_*_*_* 

* GET STORAGE. * 
*OPEN FILE, ETC.* 

* * 
***************** 



JW01A2 
*****G2********** 
♦ILBDMP25 * 

* ISSUE STATE * 

* MESSAGE * 

* * 
***************** 



DUMPIT V JS01A1 
*****H2********** 
*ILBDMP22 * 



***************** 



FETCH V JR01A1 
*****H3 ********** 
♦ILBDMP21 * 
*_*_*_*_*_*_*_*_* 

* OPEN FILE, * 

* INITIALIZE * 

* STORAGE * 
***************** 



*****J3* ********* 



***************** 



****J!|********* 

* RETURN TO * 
► ILBDDBGO » 
i * 

*************** 
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Chart JQ. HEXDUMP (in ILBDMP20) 



*PUT ADDRESS IN * 

* REGISTER FOR * 

* CONVERSION * 

* i 
***************** 

**** 
l->* i 

* B3 * 

* * 
**** 

*****E1*********1 

* * 

* SET HALF- LINE * 

* COUNTER TO 3 * 

* WORDS * 

* 4 
***************** 



****A2********* 

* 4 

* HEXDUMP * 

* 4 
*************** 



********** 



**** 

t C2 * 



*-> 



GIVECORE 

*****q2********** 
*PUT H BYTES OF * 
♦VIRTUAL STORAGE* 

* AT ADDRESS IN * 

* REGISTER FOR * 

* CONVERSION * 
***************** 



. * ROOM IN * 
.BUFFER FOR 8 
* . WORDS . < 



* SET HALF-LINE * 

* COUNTER TO U * 

* WORDS * 

* * 
***************** 



ENTER FROM 
ILBDMP23 OR 
ILBDMP2H 



G2 *. 

.♦AMOUNT *. 

.♦TO DUMP > 1*. 

.LINE AND NOT ." 

* . AT FULL . * 

*.WORD .♦ 

*. . * 

*YES * 



V 
*****H2 ********** 

* UP BUFFER * 

* POINTER TO * 

* ALIGN AND * > 

* ADJUST BYTES- * 
* IN- WORD COUNTERS 
***************** 



"1 



WORDLOOP 

*****B3 ********* 
♦CONVERT A HALF 
♦ BYTE IN 
REGISTER AND 



* REGISTER AND *< — n 

* SHIFT * 

* * 
********************* 



V 
*****D3 ********** 
♦DECREMENT BYTES* 

* TO DUMP, ♦ 

* INCREMENT * 

* ADDRESS * 

* * 
***************** 



DUMPING 
ADDRESS 
ITSELF 



**** 
* i 

" D2 * 



*****D4 ********** 



*********** 



* *-> 
**** 

PRINTDMP V JB01A1 
*****E4 ********** 
♦ILBDDBG1 * 
*_*_*_*_*_*—*_*_* 

* PRINT LINE * 

* BUILT * 

* * 
***************** 



DONE A WORD 



*F5********* 
4 
RETURN * 

4 
************ 



********* 



* B2 * 

* * 
**** 



**** 

* * 

* B2 * 

* * 
**** 



*****J3********** 

* * 

* * 
♦SPACE IN BUFFERS 

* * 

* * 
***************** 



***J5********** 



***************** 

**** 
L_>* * 
* C2 * 

**** 



♦YES 

I **** 

L_>* * 

* E4 * 



*****Kt ********** 

* INCREMENT * 

* ADDRESS. * 
♦DECREMENT BYTES* 
♦LEFT BY A LINE ♦ 

* * 
***************** 

I **** 
l_>* * 

* FU * 

* * 
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Chart JR. SEGINIT (ILBDMP21) 



►***A1 ********* 

ILBDMP21 * 
* 
*************** 



Bl *. 
. * *. 
.* 
*. FIRST TIME 



SEGINIT 

ENTER FROM 
ILBDMP20 FOR INIT 
OR ABEND 



* ANY *. YES 

DYNAMTAB IN .* 

*. RUN .* 



*****B3********** 

* COMPUTE AND * 

* STORE LOAD * 
->* ADDRESSES OF * 

* OTHER MODULES * 

* * 
***************** 



* FIND PCONTROL * 

* FOR THIS * 

* PROGRAM * 

* * 
***************** 



*****D2*** ******* 



. * IS THIS *. YES 

.SAME PROGRAM .* 

*. AS LAST .* 



Fl *. 
. * * 
. * IS ENTRY 



V JB01A1 
*****G1********** 
*ILBDDBG1 * 
*_*_*_*_*_*_*_*_* 

* PRINT ENTRY * 

* MESSAGE * 

* * 
***************** 



♦STORE CRITICAL * 
>* ADDRESSES IN * 

* COMMON * 

* * 
***************** 



. * DOES * 
.PROGRAM HAVE 
*. DYNAMTAB .* 



****K1 ********* 
► RETURN TO * 

* ILBDMP20 1 

* * 

*************** 



*************** 



****E2********* 

► RETURN TO * 

► ILBDMP20 * 
* * 

*************** 



->*.SAME SEGMENT .* 



*****G2********** 

* * 

* * 

* SAVE PRIORITY * 

* * 

* * 
***************** 

**** 
L_>* * 

* B5 * 

* * 
**** 



RESTORE 

*****E3 ********** 

* RESTORE * 

* CLOBBERED * 
♦INSTRUCTIONS IN* 

* PROGRAM * 

* * 
***************** 



IS PDUMP *. NO 
REQUESTED . * 



*****G3***** 



********** 



JQ01A2 
c**** H3 ********** 
fHEXDUMP * 



(■************ 



ANY MORE 
PCONTROL 
. TABLES 



.* DOES RUN 
. HAVE ANY 
* . DYNAMTAB 



**** 

* * 

* ct * 



*****C4********** 

* * 
♦SEARCH FOR ROOM* 

* FOR OTHER * 

* MODULES * 

* * 
***************** 



* OPEN DEBUG * 
->* FILE, READ * 

* PROGSUM * 

* * 
***************** 



*****EH**i 



***************** 



**** 

* * 

* B4 * 



►*K3********** 



************** 

**** 
L_>* * 

* B« * 



*****G4 ********** 

* * 

* RELOCATE * 

* ADDRESSES IN * 

* PCONTROL * 

* * 
***************** 



.ANY OBODOTAB .* 



*****JH** ****** 



***************** 



**** 








* * 








* B5 * 








* *_ 


"v 






**** 






INITDYN 






*****B5 


t*' 


***** 


■ * 


* 






* 


* GET 


FIRST 


* 


♦DYNAMTAB 


ENTRY 


* 



********** 



D5 *. 

. * HAS * . 
INSTRUC- 
TION BEEN 

. STORED . 



*****E5********** 

* RELOCATE * 

* ADDRESS IN * 
♦DYNAMTAB ENTRY * 

* * 
***************** 



WILLFIND 

*****F5********** 
*GET INSTRUCTION* 

* FROM VIRTUAL * 

* STORAGE AND * 

* SAVE IN * 

* DYNAMTAB * 
***************** 



UNIQUE 

*****G5********** 
♦REPLACE 2 BYTES* 

♦ IN VIRTUAL * 
— >♦ STORAGE BY BALR* 

♦ 0,12 ♦ 

♦ * 
***************** 



**************** 



.END OF TABLE .* -I 



****K5********* 

► RETURN TO * 

► ILBDMP20 * 

*************** 



*YES 

I **** 

l_>* * 

* B5 * 
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Chart JS. DMPCNTRL (ILBDMP22) 



k 

* ILBDMP22 

*************** 



.*BOMB SWITCH*. YES 



*****d ********** 

* SEARCH FOR * 
*DYNAMTAB ENTRY,* 
♦RIGHT PRIORITY,* 

* AND ADDRESS * 

***************** 



* STORE RETRY * 

* ADDR. IN * 

* ILBDDBGO * 
***************** 



*****pl********** 



***************** 



»****H1 ********** 



* MARK ENTRY TO * 

* BE SKIPPED * 



*************** 



*****K1********** 

* * 
♦POINT TO FIRST * 
*DYNAMTAB ENTRY * 
*FOR THIS ADDR. * 

* * 
***************** 

**** 



DMPCNTRL 

ENTRY FROM 
ILBDMP2 FOR 
DYNAMIC DUMP OR 
AT ABEND ILBDMP25 



**** 

* * 

* B2 * 

* *-_. 
**** 

4PTGT V 



*************** 



ISDMP2IN V JV01A2 
*****C2********** 
♦ILBDMP24 * 
*_*_*_*_*_*_*_*_* 



***************** 



*****D2 ********** 

* * 

* * 
*SET WANTTGT OFF* 

* * 

* * 
***************** 



*****E2** ******** 

* SET REQUEST * 
* LIMITS AT START* 

* AND END OF * 

* DATATAB * 

* * 
***************** 



JI01A2 
*****F2* ********* 
♦ILBDMP01/02 * 
*_*_*_*_*_*_*_*_* 
♦POINT TO START * 
♦BLOCK AND READ * 
* * 

***************** 



JT01A1 
*****G2********** 
♦NXTENTRY * 
*-*-*_*_*-*_*_*—* 
♦ANALYZE DATATAB* 

* ITEM * 

* * 
***************** 



V JU01A2 
*****J2********** 
♦ILBDMP23 ♦ 
*_*_*_*_*_*_*_*_* 

* * 

* DUMP * 

* * 
***************** 

I **** 
L_>* * 

* BU * 

* * 
**** 



**** 

* * 

* BU * 

* *— x 
**** V 

. *. 
BU 



JP01J2 
RET 

♦***B5********* 
* RETURN TO * 
.__>* ILBDMP20 * 



C4 *. 
. * ANY * . 
♦ MORE *. YES 
REQUESTS IN .* 



********** 



*****C5* ********* 

* * 

* POINT TO NEXT * 
->*REQUEST IN SAME* 

* ENTRY * 

* * 
***************** 



k****Dl( ********** 



**************** 



****E3 ********* 

* RETURN TO 

* ILBDMP20 
(■ * 

*************** 



*< *.END OF TABLE 



ENTER FROM 
ILBDMP23 
OR ILBDMP24 



****G3^**++**** 

* 4 

* CALLD1D2 * 
» * 

*************** 



V JV01A2 

*****J3********** 
*ILBDMP21 * 
*_*_*_*_*_*_*_*_* 

* * 

* DUMP * 

* * 
***************** 

**** 
L_>* * 

* BU * 

* * 
**** 



V JB01A1 

*****Q1)**** ****** 

*ILBDDBG1 * 
*_*_*_*_*_*_*_*_* 

* PRINT CARD * 

* NUMBER OF * 

* REQUEST * 
***************** 



**** 

* * 

* B2 ♦ 

* * 
**** 



*****jlt********** 

♦ USE TABLE ♦ 
♦LOCATORS TO SET* 

-* LIMITS OF * 

♦ REQUEST ♦ 

♦ ♦ 
***************** 
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Chart JT. NXTENTRY (ILBDMP22) 



♦♦♦*A1********* 
t t 

t NXTENTRY * 

* 4 

*************** 



run riivoi j-LEiCij ijiun 
ILBDMP23 AND ILBDMP24 
FOR SUBSEQUENT ITEMS 



*****Ci ********** 

* * 

* * 
♦SET ENDENTRY ON* 

* * 

* * 
***************** 



*****D1********** 
♦SET ENDLEVEL = ♦ 

♦ LEVEL OF LAST ♦ 
♦ITEM (0, IF FD,* 

♦ SD, RD) ♦ 

♦ * 
*♦♦♦♦♦♦********** 



*****E1********** 

♦ ♦ 

♦ UP DATATAB ♦ 
♦POINTER TO NEXT* 

♦ ENTRY ♦ 

♦ * 
***************** 



♦.END OF BLOCK .♦ — > 



JI01A2 
*****G1********** 

♦ILBDMP01/02 ♦ 
*_*_*_*_*_*_*_*_* 

* * 
♦READ NEXT, NOTE* 

♦ * 
***************** 



*H1********** 



***************** 



► .IS IT PROCTAB.' 



♦STORE DISPL IN 
->♦ BLOCK IN THIS 
♦ ENTRY 
* 
****♦*♦♦♦♦****** 



*****q2*** ****** 

♦ STORE MAJOR, 

♦ MINOR, LEVEL 

♦ A (ENTRY) 

♦ A (ATTRIBUTES) 

**************** 



. ♦ DOES ♦ 
-♦.PROGRAM HAVE 
+ . ODO . ♦ 



.♦IS ITEM AN 
. INDEX OR 
♦. RENAMES . 



t****B3********** 
f INIT LOOP * 
► COUNTER OF 3, < 

* POINTERS TO i 
*INTO ABOUT 1ST * 

* ODO 1 



► ** V 

. ♦. 

C3 ♦. 

. +DATATAB+ . 

► LNT HAVE ♦ 
ODO AT THIS 

<• . LEVEL . * 



*****£!)********** 

* * 

* SET ♦ 
->♦ CORRESPONDING ♦ 

* ODOLEV=X , FF" ♦ 

*********♦♦♦♦♦♦♦* 



*****G2** ♦♦♦♦*♦♦♦ 

♦ ♦ 
♦SET MASTLEV AND* 

♦ ALL 3 ODOLEVS ♦ 

♦ TO X'FF" ♦ 

♦ * 
***************** 



NXTEXIT V 

****H2* ******** 

* RETURN TO * 

* CALLER * 

*************** 



JS01A1 



♦***K1 ********* 

► RETURN TO * 

► ILBDMP22 (NOT * 

► TO CALLER) * 
*************** 
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. + LEVEL: ♦. LEV> 

. CORRESPONDIN .+ -, 

*.G ODOLEV .♦ 



DOES IT 
HAVE ODO 
. CLAUSE 



*****P3 ********* 

* SET 

* CORRESPONDING 
♦ODOLEV = LEVEL 

* OF ITEM 



**4 



► ***« 



*****G3 ********** 

* COMPUTE AND * 
*STORE ADDR. OF * 

* CORRESPONDING * 
♦OBODOTAB ENTRY * 

* * 
***************** 



»**H3********** 



***************** 



J3 


* . 






. ♦ ♦. 






♦ ♦.NO 






DONE 3 .♦ n 

♦ . .♦ I 

*. .* V 










♦ . .* **** 






♦YES ♦ ♦ 








* C3 * 








* * 








♦ ♦** 






V 






. * „ 






K3 ♦. 


*****K4 **+♦****** 


NXTEXIT 


. ♦ LEVEL ♦ . 


* * 


♦♦**K5********* 


♦GT LEVEL OF+. NO 


♦ SET KASTLEV= * 


* RETURN 10 


LAST ODO .* 


— >* X'FF" * 


>♦ CALLER 


*. MAS r 


DER .♦ 


* * 


A ♦ 



1***************4 



************** 
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Chart JU. DUMP1 (ILBDMP23) 



DUMPl 

ENTER FROM 
ILBDMP22 OR 
ILBDMP24 



****B1 ********* 
► RETURN 

*************** 



****A2********* 
* 

* ILBDMP23 

*************** 

**** 

* * 

* B2 * 



*< *.A DUMPl ENTRY.* 



♦MOVE NAME LEV#,» 

* CARDtt S TYPE ' 
*CODE TO BUFFER ■ 

* • 
***************** 



*GET LOCATION OF* 

* DATA RETURN * 
*WITH ADDR IN R4* 

* * 
***************** 



:ntrlrtn 

*****A3* ******** 

* CONTROLS THE 

* NUMBER OF 
— >*OCCURRENCES TO 

* DUMP 



**** 

* * 

* Alt * 

* ♦— i 
**** J 

*****AH*** 



!>*****< 



***** 



♦DETERMINE TYPE * 
*OF DATA TO DUMP*< 



************** 



* SAVE ADDP AND * 
♦LENGTH OF ITEM * 

* FOR HEX DUMP * 

* * 
***************** 



*****J2 **♦♦♦♦♦♦♦♦ 



*****B3 ********** 

♦FIND NUMBER OF * 
♦OCCURRENCES AND+ 
♦INCREMENT VALUE+ 
* * 

***************** 



V 

C3* "*. 
. * ♦. 
* *. NO 
AN ODO ITEM .* n 

•'.. .*•* I 

* . .* **** 

*YES * * 

* F3 * 



* PUT OUT NAME * 

* LENGTH AND *< n 

♦VALUE OF OBJECT* 

***************** 



************** 



CALLDBGl V JB01A1 
*****Bl»*** + + + ^ + + + 
♦ILBDDBG1 * 
*_*_*_*_*_*_*_*_* 

* * 

* PRINT BUFFER * 

* * 
***************** 



*.HEX REQUESTED. *- 



HEXRTN JQ01A2 
*****C5********** 
*HEXDUMP * 
*_*_*_*_*_*_*_*—* 

>* PUT OUT HEX * 

* DUMP OF DATA * 



►*+*** 



******** 



. * ALL 
. SUBSCRIPTS 
♦.FINISHED . 



*****q3* ********* 

♦ MOVE CURRENT ♦ 
-♦SUBSCRIPT VALUED 

♦ TO BUFFER ♦ 

♦ * 
***************** 



AN 


* 


YES 


OCCURRING 




* 


. ITEM 


* 






V 






**** 


*NO 




* * 








* F3 * 








* * 








**** 


V 






**EU*++*** 


<*** 






* 


GET NEXT 




* 


DICTIONARY 




* 


ENTRY 




* 



***************** 



**** 

* * 

* E2 ♦ 

* * 
**** 



**G4******* 

RETURN TO 

CALLER 



*****K2********** 



***************** 

I **** 
1 >* * 

* A4 * 

* * 
**** 
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Chart JV. 



DUMP2 (ILBDMP24) 



DUMP2 

ENTER FROM 
ILBDMP22 AND 
ILBDMP23 



****A2********* 
> * 

* ILBDMP2H * 

* * 
*************** 



******** 



***************** 



***************** 



***************** 



JQ01A2 
*****P2********** 
♦HEXDUMP * 
*_*_*_*_*_*_*_*_* 

* * 

* DUMP IN HEX * 

* * 
***************** 



END OF TGT 



****J2********* 
* RETURN TO * 
f ILBDMP22 * 
» * 

*************** 



***************** 



►****D3* ********* 



***************** 



*****E3********** 

* * 
♦CONVERT BINARY * 

* CELL IN PRINT * 

* BUFFER * 

* * 
***************** 



JB01A1 
*****F3********** 
♦ILBDDBG1 * 
*_*_*_*_*_*_*_*_* 

* * 

* PRINT LINE * 

* * 
***************** 



ISITALL V JT01A1 
*****H3 ********** 
♦NXTENTRY * 
*_*_*_*_*_*_*_*_* 

* GET NEXT ♦<- 

* DATATAB ENTRY * 

* * 
***************** 



K3 *. 

.♦IS ITEM*. 

* LEVEL- * 

DESCRIPTION 



Ct ♦ . 

. * * 

IS IT FD 



T 1111 J. J. L1U1*LD.£jIV , T 

♦ETC. IN BUFFER * 
♦ ♦ 

***************** 



PRINT V JB01A1 
*****EU********** 

♦ILBDDBG1 * 
*_*_*_*_*_*_*_*_* 

* * 

* PRINT LINE ♦ 

* * 
***************** 



*****FH**** ****** 

♦ * 

♦ GET TYPE, * 

♦ ADDRESS. AND ♦ 

♦ LENGTH OF DTF ♦ 

♦ * 
***************** 



V JQ01A2 
*****GU ********** 
♦HEXDUMP * 
♦_♦_♦_*_*_*_*_*_* 

* * 
♦DUMP DTF IN HEX+ 

* * 
***************** 



****JU ********* 

► RETURN TO * 

► ILBDMP22 * 
» * 

*************** 



****K4 **♦♦♦♦♦** 

* TRANSFER TO « 
->♦ ILBDMP23 * 

* 1 
*************** 



DUMPSD JB01A1 
*****U5* ********* 

♦ILBDDBG1 ♦ 

*_*_*_*_*_*_*_*_* 



► PRINT LINE * 
» i 

t******* ********* 



C5 *. 

. ♦ * 

r *'. IS IT RD 



♦♦♦**E5+*****+*+* 

♦ ♦ 
♦'LINE COUNTER' ♦ 

♦ AND VALUE TO ♦ 

♦ BUFFER ♦ 

♦ * 
***************** 



V JB01A1 
*****F5***** + ^* + 
♦ILBDDBG1 ♦ 
*_*_*_*_*_*_*_*_* 

* * 

* PRINT LINE ♦ 

* * 
***************** 



*****H5* ********* 

♦ * 
♦'PAGE COUNTER' ♦ 

♦ AND VALUE TO ♦ 

♦ BUFFER * 

♦ ♦ 
***************** 



PRINT V JB01A1 

**+**J5* ********* 

♦ILBDDBG1 * 

*_*_*—*-*_*_*—*—* 

-* * 

♦ PRINT LINE ♦ 

♦ * 
***************** 
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Chart JW. SYMSTATE (ILBDMP25) 



SYMSTATE 

ENTER FROM 
ILBDMP20 AT 
ABEND AFTER 
ILBDMP21 



****A2********4 
► ILBDMP25 
*************** 



STATEOUT ON 



RET JB01H2 
****B3********* 
* RETURN TO * 
>* ILBDMP20 * 



************** 



*****C2********** 

* * 
♦USE ADDRESS IN * 

* STXIT PSW IN * 

* ILBDDBGO * 

* * 
***************** 



. * IS IT IN * 

.ROOT SEGMENT 

*. LIMITS . * 



.* IN *. 
* TRANSIENT * 
AREA LIMITS 



* USE START OF * 
->* ROOT AS BASE ♦- 

*AND PRIORITY * 

* * 
***************** 



YESTRANS 

*****E3********** 

* USE START OF * 
♦TRANSIENT AREA ♦ 

>♦ AS BASE AND ♦- 

* LAST NON-ZERO * 

* PRIORITY ♦ 
♦**♦♦**♦***♦****♦ 



F2 *. 

.♦USE 14 ♦. 
♦ (ARE WE ♦ 

USING SAVED 
♦. R14) .* 



*****q2********** 

* * 

* * 

* SET USE14 ON ♦ 

* * 

* * 
***************** 



♦ USE SAVED ♦ 
-♦ REGISTER 14 * 

♦ FROM ILBDDBGO ♦ 

♦ * 
***************** 



k******* 



************ 



GETSTATE 

*****BH ********** 

* FIND SEGINDX ♦ 

♦ ENTRY, GET * 
r — >* PROCTAB ♦ 

♦ POINTERS ♦ 

* * 
***************** 



GOTSX 

*****C4 ********** 
♦SEARCH PROCINDX+ 

♦ WITHIN LIMITS ♦ 

♦ OF THESE ♦ 

♦ POINTERS FOR ♦ 

♦ NEAREST ADDR ♦ 
***************** 



♦ READ ♦ 

♦ CORRESPONDING ♦ 

♦ PROCTAB BLOCK + 

♦ ♦ 
***************** 



***** E4 ********** 

♦ COUNT THRU ♦ 
+ BLOCK TO ♦ 

♦ NEAREST MATCH ♦ 
♦FOR ABEND ADDR ♦ 



***************** 



*****Gt4 ********** 

♦ PUT CARD/VERB ♦ 
♦FROM PROCTAB IN* 
♦MESSAGE TEXT IN+ 

♦ BUFFER ♦ 



***** 



****♦*♦*** 



JB01A1 
*****H4********** 
♦ILBDDBG1 ♦ 
*_*_*_*_*_*_*_*_* 

♦ PRINT STATE ♦ 

♦ MESSAGE ♦ 

♦ * 
***************** 



JH *. *****J5********** 

. ♦ ♦. ♦ ♦ 

.♦ ANY FLOW ♦. NO ♦ + 

♦.OPTION IN THE.* >*SET STATEOUT ON + 

*. RUN .♦ A * * 

. * * * 

♦♦♦♦********♦*♦♦* 



JGOlAt 
*****KU* ********* 
♦ILBDFLW2 ♦ 

♦_♦_♦_♦_♦_♦_♦_♦_♦ 

* *_ 

* FLOW OUTPUT * 

* * 
***************** 



JB01H2 
RET V 

****K5********* 

♦ RETURN TO ♦ 

♦ ILBDMP20 ♦ 

♦ ♦ 
*************** 
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Chart JX. SRCHPUBS (ILBDMP04) 



ILBDMP04 * 
************* 



!■********* 



*****Q1*********i 



********* 



ERREXIT 

****D2 ********* 

* RETURN TO * 
>* ERREXIT IN * 

* IODISK * 
*************** 



*****E1* ********* 

* MOVE * 

* CORRESPONDING * 
*DATA TO SYS005 * 

* DTF * 

***************** 



V 
t*** pi ********* 

RETURN 
*************** 
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| Chart KA. COUNT Initialization Subroutine (ILBDTCOO) 



►***A2********* 
4 
ILBDTCOO * 
*************** 



*****C2** ******** 



********* 



STEP2H00 V 

*****E2 ********** 



***************** 



*****F2********** 



***************** 



*****G2*** ****** 



*************** 



*****H2********** 

* * 

* INITIALIZE * 

* COUNT COMMON * 

* AREA * 

* * 
***************** 



1. FORWARD,, BACKWARD POINTERS 

2. PROGRAM- NAME 

3. NUMBER OF NODE COUNTERS 

4. POINTER TO TABLES 

5. POINTERS TO PREVIOUS CALLERS 

6. CHAIN SIZE 

7. TGT POINTER 

8. TABLES 



1. SET CNTFLG 

2. SET DECIMAL POINT 
IS COMMA 



► RETURN 
* 
************** 
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| Chart KB. COUNT Frequency Subroutine (ILBDTC10) 



****A1********< 

* ILBDCT10 
* 
*************** 



*****D1*********« 



*************** 



*****E1 ********** 

* * 

* * 

* GET COUNT * 

* * 

* * 
***************** 



*****G1********** 



***************** 



* RETURN * 

► A 

*************** 
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Chart KC. COUNT Termination Subroutine (ILBDTC20) 



****A1 ********* 
» * 

► ILBDTC20 * 

► * 
*************** 



COUNT 
COMMON IN 
. MEMORY 



N . * , 

*•* 1 



**** 

* * 
" HI * 

**** 



.*. TCERRRTN JB01A1 

CI *. ***c2*********** 

. * * . ILBDDBG1 

. * COUNT *. YES * * 

.ROUTINE ERROR.* > WRITE ERROR 

*. .* * MESSAGE 16 * 
*. .* 

*. .* **************** 



—I 

**** 

* * 

* HI * 

* * 
**** 



****C3********* 

* RETURN * 

* * 
*************** 



V KD01A1 
***E1*********** 
ILBDTC30 
* * 

WRITE EXECUTION 
* STATS ON * 
DEBUG PRINT FILE 
**************** 



► RETURN » 
*************** 



V JE01A3 
►**G1 *********** 
ILBDDBG8 



**************** 

**** 

* * 

* HI * 

* *- 
**** 



* RETURN * 
^ * 

*************** 
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Chart KD. COUNT Print Subroutine (ILBDTC30) 



****A1 ********* 

» 4 

► ILBDTC30 * 

► 4 
*************** 



CHAIN NULL 



SUMMARY 
STATS TO 
. WRITE 



*****B1|********** 

* CONVERT * 

* CONVERT * 
>* COUNT-SUM TO * 
♦PACKED DECIMAL * 



*********** 



****** 



*****C1********** 

* * 
* UPCNTSUM * 

* UPDATE *< 

* COUNT- SUM * 

* * 
***************** 



*****£!********** 

* GO BACK TO * 

* FIRST CHAIN * 

* ENTRY * 

* * 
***************** 



STEP3 

***F1********** 

STEP3RTN— 

* WRITE * 
STATISTICS HEAD 
* VIA ILBDDBG1 * 

**************** 



***************** 



***C4*********** 

STATEND 

* WRITE * 
SUMMARY, END <- 
* STATS VIA * 
ILBDDBG1 
**************** 



*****DH ********** 

* * 

* FREEVIS * 

* APPROPRIATE * 

* VERBSUM TABLE * 

* * 
***************** 



TC3EXIT 

****E2***4 



► RETURN < 

► * 
*************** 



*****H3 ********** 



— >*.END OF TABLE 



JB01A1 
***J1* ********** 
ILBDDBG1 



WRITE A LINE ON 

* DEBUG PRINT * 
FILE 
**************** 



***************** 



************* 
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SECTION 3: DATA AREAS 



DEBUG COMMON AREA (ILBDDBG7) 

The debug coitimon area resides in subroutine ILBDDBGO with the DSECT name of DBGOCOM. 
It is used by both the debugging subroutines and the object-time execution statistics 
subroutines. Its format is as follows: 



Displacement 

Hex Decimal Field 




48 72 
90 144 



SAVEDBGO 
SAVEDBG1 
ADBG1 



No. Of 

Bytes Description 

72 ILBDDBGO save area 

72 ILBDDBG1 save area 

4 Address of ILBDDBG1 



94 148 



CURRBUFF 



Subfield 

ERRPARM 



Bytes Contents 

Error parameter 
1-3 Address of current buffer 



98 152 



STXITSA 



STXIT save area, containing PSW at the time of 
program check (alternate name STXITPSW) 



Subfield Bytes Contents 
PSWL 0-3 Leftmost PSW bytes 
PSWR 4-7 Rightmost bytes (bytes 5-7 
named INITAD) 



A0 


160 


D4 


212 


D8 


216 


EO 


224 


E4 


228 


E8 


232 



EC 236 



F0 


240 


F4 


244 


F8 


248 


FC 


252 


100 


256 


102 


258 



STXITR0 

STXITR13 

STXITR14 

FIRST 

LAST 

SAVER 14 

FLTEP 

STATEEP 

FLOW2EP 

SORTSEP 

DSPLEP 

SYMSIZE 

FLAG1 

(SWITCHA) 



52 

4 
8 
4 
4 
4 



Registers 0-12 

Register 13 

Registers 14 and 15 

Address of highest TGT 

Address of current TGT 

Save register 14 for ABEND outside of 

COBOL program 

Virtual for floating-point subroutine used 

by SYMDMP 

Virtual for STATE entry point 

Virtual for print FLOW subroutine 

Virtual for Sort subroutine 

Virtual for display subroutine 

SYMSIZE 

Switches 



Equate 

Name Code Meaning 

FRST X'80' First time through 

DBGO X"40* ILBDDBGO error 

REC X'20' Debug ABENDed: recursion bit 

DBG1 X'10» First time in ILBDDBGl 

DBG2 X'08* In ILBDDBG2 

COBSW X*04" Current program is not COBOL 

SYMDEAD X , 02" SYMDMP is dead switch 

ENDFLOW X»01" Print FLOW when FIRST-LAST 
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Displacement 

Hex Decimal Field 



No. of 
Bytes 



Description 



103 259 



FLAG2 
CSWITCHC) 



Equate 

Name 

STATEMSG 

STATE 1 

STATE 2 

SYMIN 

FLOWINIT 

DYNAM 

FLW1RETN 

RANGE 



Code 

X"80* 

X'40« 

X*20" 

X°10" 

X'08' 

X"04' 

X" 02" 



Meaning 

Statement number already printed 

Use register 14 for STATE 

Found first segment 

SYMDMP in core bit 

FLOW already initialized bit 

Dynamic dump mask 

FLOW1 return bit 

ABEND occurred outside range of 

SYMDMP (for ILBDDBG2) 



104 


260 


105 


261 


106 


262 


13A 


314 


17F 


483 


1F8 


604 


214 


632 


215 


633 



DBG1CODE 

ABCODES 

HEAD1 

HEAD2 
FOOTING 
STATERR 
CURRPTY 



1 Print code for ILBDDBG1 

1 ABEND codes 

52 Page eject 

69 COBOL diagnostic aids 

121 Triple space 

28 End of COBOL diagnostic aids 

1 STATE error byte 

1 Current priority for STATE 
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DEBUG INPUT FILE 

The debug file is made up of fixed-length 512-byte blocks; a 1-byte field containing the 
hexadecimal value *FF' marks the end of usable information within a block. 

The seven tables described in the following pages exist in the debug file at object time. 
They are accessed by the subroutines of the SYMDMP program. 

See Diagrams 8, 9, and 10 in "Section 2: Program Organization" for the relations among 
these tables and the object-time subroutines. 



1" 



PROGSUM 



OBODOTAB 



DATATAB 



PROCTAB 



CARDINDX 



SEGINDX 



PROCINDX 
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PROGSUM TABLE 



The PROGSUM table is the first table on the debug file. It consists of a single 
fixed-length 108-byte entry and contains information about the program and the debug file 
itself. 



Displ 

Dec Hex 




Field Name 
PGPROGID 


Bytes 
8 


8 


8 


PGDECLEN 


4 


12 


C 


PGBL1 


4 


16 


10 


PGBLL1 


4 


20 


14 


PGSBL1 


4 


24 


18 


PGDTF1 


4 


28 


1C 


PGVLC1 


4 


32 


20 


PGINDEX1 


4 


36 


24 


PGENDDTF 


4 


40 


28 


PGENDNDX 


4 


44 


2C 


PGDTDVAD 


4 


48 


30 


PGDTNUM 


2 


50 


32 


PGDTDSP 


2 


52 


34 


PGPTDVAD 


4 


56 


38 


PGCXDVAD 


4 


60 


3C 


PGSXDVAD 


4 


64 


40 


PGPXDVAD 


4 


68 


44 


PGCXNUM 


2 


70 


46 


PGSXNUM 


2 


72 


48 


PGPXNUM 


2 


74 


4A 


PGSXDSP 


2 


76 


4C 


PGPXDSP 


2 


78 


4E 


PGFPDSP 


2 


80 


50 


PGODONUM 


2 


82 


52 


PGHASH 


2 


84 


54 


PGFIB 


4 


88 


58 


PGLEN 


1 


89 


59 


PGFILL 


19 


Note: 


The only field: 


s that 



Bytes Field Description 
PROGRAM- ID 

Length of Declaratives Section 
BL1 address relative to the start of the TGT 
BLL1 address relative to the start of the TGT 
SBL1 address relative to the start of the TGT 
DTF1 address relative to the start of the TGT 
VLCl address relative to the start of the TGT 
INDEX1 address relative to the start of the TGT 
End of the DTFs relative to the start of the TGT 
End of the indexes relative to the start of the TGT 
Device address of first block of DATATAB 
Number of blocks in DATATAB 

Displacement in the block of the first DATATAB entry 
Device address of PROCTAB 

CARDINDX 

SEGINDX 

PROCINDX 

in CARDINDX 

in SEGINDX 

in PROCINDX 
Displacement in the block of the first SEGINDX entry 
Displacement in the block of the first PROCINDX entry 
Displacement of floating-point virtual from the start of the 
PGT 

Number of bytes in OBODOTAB, including the unused bytes at 
the end of the blocks 

Identifier to insure match between this debug file and 
compiled COBOL program 

Address of first FIB relative to start of TGT 
Length of PROGSUM 
Reserved for later use 

The only fields that may be zero in this table are PGDECLEN, PGODONUM, and PGFPDSP 
when the referenced areas are absent from the program. For TGT addresses which do not 
exist, the address of the first byte following the previous cell is used because these 
cells are used in calculating the number of TGT cells of a given kind to dump. 



Device address of 
Device address of 
Device address of 
Number of entries 
Number of entries 
Number of entries 
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OBODOTAB TABLE 



The OBODOTAB table is an abstract of the DATATAB entries for all objects of 
OCCURS- . .DEPENDING ON clauses in the program. The OBODOTAB table, if present, 
immediately follows the PROGSUM table and contains one variable-length entry for each 

unique object of an OCCURS DEPENDING ON clause. Each entry begins on a fullword 

boundary within the block. 

The entries are essentially the same as the DATATAB entries for the same name. See 
the entries for elementary numeric items in the format of the DATATAB table. OBODOTAB 
entries differ only in that the card-number field is zero and the renaming information 
omitted. Table-locators within the DATATAB entries are used to access the OBODOTAB 
entries. See the subscripting information portion in the format of the DATATAB table. 

COUNT-NAME-TYPE FIELD 



Displ 






Dec Hex 


Field Name 


Bytes 







1 


1 1 




c 


1+c 1+c 




1 


2+c 2+c 


CARDNUM 


3 


5+c 5+c 


MAJMIN 


1 



Field Description 
Count Field: Number of bytes (c) in name field 
Name Field: Number of bytes, varies between 1 and 30 
Count Field: Number of bytes in remainder of this entry 
Card number where name is defined 
Type of Entry (For description of this field see 
corresponding field in DATATAB table) 

VARIABLE ATTRIBUTES FIELD 
For description of this field see corresponding field in DATATAB table. 
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DATATAB TABLE 



The DATATAB table is the third table in the debug file. It immediately follows the last 
entry of the ORODOTAB table* if that table is present. Otherwise, it follows the PROGSUM 
table. 

The table consists of two fields, the Count-Name-Type field (shown below) and the 
Variable Attributes field. The Count-Name-Type field has the same format for all 
entries. It varies in length between 7 and 36 bytes. The Variable Attributes field 
differs for each type of entry and is described in the diagrams on the following pages. 

COUNT-NAME-TYPE FIELD 



Displ 



Dec 




Hex 



Field Name 


Bytes 
1 


1 


1 




c 


1+c 


1+c 




1 


2+c 


2 + c 


CARDNUM 


3 


5+c 


5+c 


MAJMIN 


1 



Field Description 

Count field: Number of bytes (c) in name field 

Name field: Number of bytes varies between 1 and 30 

Count field: Number of bytes in remainder of entry 

Card number where name is defined (contains zeros for 

RENAMES items) 

Type of entry 



Bit 

Bits Settings Meaning 

0-3 1000XXXX FD entry 

1001XXXX SD entry 

1110XXXX RD entry 

1111XXXX Index-name 

0000XXXX Level description under FD 

0001XXXX Level description under SD 

0110XXXX Level description under RD 

0100XXXX Level description in Working-Storage 

0101XXXX Level description in Linkage 

4-7 XXXX0001 Fixed length group 

XXXX0010 Alphabetic 

XXXX0011 Alphanumeric 

XXXX0100 Variable length group 

XXXX0101 Numeric edited 

XXXX0110 Sterling report 

XXXX0111 Usage index 

XXXX1000 External decimal 

XXXX1001 External floating point 

XXXX1010 Internal floating point 

XXXX1011 Binary 

XXXX1100 Internal decimal 

XXXX1101 Sterling non-report 

XXXX1110 Alphanumeric edited 

XXXX1111 RENAMES (level 66) 
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DATATAB TABLE: 



VARIABLE ATTRIBUTES FIELD 



SD item ; There are no variable attributes for an SD entry. 



RENAMES item (level 66): 



6+c 



6+C RENAMES 



Bit 
7 



Bit 

Settings 

XXXXXXX1 

XXXXXXXO 



Meaning 

Next DATATAB entry RENAMES 
the same item as this one does 
This is the last (or only) item 
renaming an item 



INDEX name 




6+c 6+c 


INDXCELL 


FD item: 




6+c 6+c 


DTFNUM 


7+c 7+c 


ACCESFLG 



Index cell number in TGT 



1 DTF number 
1 Access method 
Bit 

Bit 

0-3 



Settings Meaning 

0001XXXX DTFCD 

0010XXXX DTFPR 

0011XXXX DTFMT 

0100XXXX DTFSD 

0101XXXX DTFDA 

0110XXXX DTFIS 

XXXXXXX1 Sequential access method 

XXXXXXXO Random access method 



RD item: 



6+c 



6+c LINECTR 



9+c 



9+c PAGECTR 



Addressing parameters of line counter 
Bit 
Bit Settings Meaning 
0-3 00OOXXXX BL entry 
0001XXXX BLL entry 
0100XXXX SBL entry 
4-15 Displacement from BL 

16-23 BL Number 

Addressing parameters of page counter 
(same form as addressing parameters above) 



Level Description Item : 

Variable attributes for level description items are divided into two portions: 
(1) the type-dependent portion, (2) subscripting information portion. 
The subscripting information portion is the same for all level description item 
entries. It follows and is described after the type dependent portion descriptions 



(1) Type Dependent Portion of Level Description Item : 

FIXED LENGTH GR OUP: 

6+C 6+C IDKFLD 3 Addressing parameters (same form as above) 
9+c 9+c LVLRDEFN 3 Bit 

Bit Settings Meaning 

0-5 Normalized level number 

6 xxxxxxlx REDEFINES 
7-23 Object time virtual storage size 

(in bytes) 
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DATATAB TABLE: 



VARIABLE ATTRIBUTES FIELD (Continued) 



VARIABLE LENGTH GROUP: 



6+c 
9+c 



6 + c 

9+c MAXSIZE 



12+c C+c VLCNUM 



3 Addressing parameters (same form as above) 
3 Bit 

Bit Settings Meaning 

0-5 Normalized level number 

6 xxxxxxlx REDEFINES 
7-23 Maximum object time virtual storage 

size (in bytes) 
2 Bit 

Bit Settings Meaning 

1XXX ODO Master 
1-3 Unused 

4-15 VLC number 



ELEMENTARY, ALPHABETIC, ALPHANUMERIC. REPORT, EDITED, STERLING, EXTERNAL FLOATING POINT : 



6+c 
9+c 



6 + c 

9+c JUSTRGT 



3 Addressing parameters (same form as above) 
3 Bit 

Bit Settings Meaning 

0-5 Normalized level number 

6 xxxxxxlx REDEFINES 

7 xxxxxxxl JUSTIFIED RIGHT 

8-23 Object time virtual storage size 

(in bytes) 



INTERNAL FLOATING POINT: 



6+C 
9 + c 



6 + C 
9+c 



FLPTYPE 



10+c A+c 



Addressing parameters (same form as above) 





Bit 




Bit 


Settings 


Meaning 


0-5 




Normalized level number 


6 


xxxxxxlx 


REDEFINES 


7 


xxxxxxxo 


COMP-1 




xxxxxxxl 


COMP-2 


Unused 







BINARY. INDEC. INTERNAL DECIMAL, EXTERNAL DECIMAL : 

6+c 6+c 3 Addressing parameters (same form as above) 

9+c 9+c NUMINFOl 1 Bit 

Meaning 

Normalized level number 

REDEFINE 

S in PICTURE 

10+c A+c 2 1XXXXXXX Leading sign 

Trailing sign 
Separate sign 
Overpunch 

Significant digits left of 
decimal point 

No significant digits left 
of decimal point 
Significant digits right of 
decimal point 

No significant digits right 
of decimal point 
If bit 2 equals 1, number of 
digits to left of decimal point. 
If bit 2 equals 0, number of digits to 
right of decimal point. 
If bits 2 and 3 both equal 1, 
number of digits to right of 
decimal point. If only bit 2 or 
bit 3 equals 1, number of Ps in 
PICTURE 
14-15 Unused 



Bit 


Settings 


0-5 




6 


xxxxxxlx 


7 


xxxxxxxl 





1XXXXXXX 




OXXXXXXX 


1 


X1XXXXXX 




xoxxxxxx 


2 


XX1XXXXX 




XX0XXXXX 


3 


XXX1XXXX 




XXXOXXXX 



4-1 



9-13 
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DATATAB TABLE: 



VARIABLE ATTRIBUTES FIELD (Continued) 



(2) Subscripting Information Portion of Level Description Item ; 

This portion of the Variable Attributes section begins immediately after the 
type-dependent portion. 

It ranges in size from 1 byte unsubscripted item to a maximum of 20 bytes for an 
item belonging to 3 variable-length gruups. 

1 Guide to RENAMES and subscripting 



Bit 
Bit Settings 

1XXXXXXX 

1 X1XXXXXX 

2 XX1XXXXX 

3 XXX1XXXX 



XXXXlXXX 
XXXXX1XX 



XXXXXX1X 
XXXXXXX1 



VLC information 
Bit 
Bit Settings 

1XXXXXXX 

1 xixxaxxx 

2 XX1XXXXX 



Meaning 

This item is renamed. The 
next DATATAB entry renames it. 
This item contains an ODO clause. 
Item requires at least 1 subscript. 
OCCURS clause connected with the 
most inclusive or only group; or 
elementary item contains an ODO. 
Item requires at least two subscripts 
OCCURS clause connected with the 
less inclusive group of 2 or the 
middle inclusive group of 3 or 
elementary group contains an ODO. 
Item requires 3 subscripts 
OCCURS clause connected with the 
least inclusive group of three or 
elementary item contains an ODO. 



Meaning 

Most inclusive group of 3 or only group 

Less inclusive group of 2 or middle 

inclusive group of 3 

Least inclusive group of 3 



If any of these bits equals 1, bytes 2 and 3 of the 
group length information for the associated group 
contain a VLC number rather than the length of 
the group. 
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DATATAB TABLE: 



VARIABLE ATTRIBUTES FIELD (Continued) 



1st subscript 
(if present) 



2 Number of occurrences (Maximum number if 0D0) 

specified in OCCURS clause governing this item. 

2 Displacement of next occurrence governed by OCCURS 
clause (See Note) 



2nd subscript 2 
(if present) 2 



Number of occurrences (as above) 

Displacement of next occurrence governed by OCCURS 



3rd subscript 2 
(if present) 2 



Number of occurrences (as above) 

Displacement of next occurrence governed by OCCURS 



1st subscript 
with 0D0 
(if present) 



OBODOTAB pointer for most inclusive group or 
elementary item containing an 0D0 



Bits 

0-8 

9-15 



Contents 

Relative block number in OBODOTAB 

Displacement within block (in 

fullwords) 



2nd subscript 
with 0D0 
(if present) 



OBODOTAB pointer for less inclusive group (as above) 



3rd subscript 
with ODO 
(if present) 



OBODOTAB pointer for least inclusive group (as above) 



Note ; If the applicable OCCURS clause is on an elementary item, the displacement is the 
machine length of that item; if the applicable OCCURS clause is on a fixed-length group, 
the displacement is the length of the group as stored in the group's DATATAB entry; if 
the applicable OCCURS clause is on a variable-length group, the displacement field 
contains the VLC number for the group. 
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PROCTAB TABLE 



The PROCTAB table contains one 5-byte entry for each card and/or verb in the source 
listing of the COBOL Procedure Division. The table is ordered on three levels: 

1. Priority (in ascending order of independent segments, with the root segirent last) 

2. Card-number within priority 

3. Verb-number within card 

The last PROCTAB entry for a priority has a card and/or verb number of zero. In 
addition, the relative address field contains the address of the first byte following all 
instructions for the segment with that priority. 

For the relationships among this table and the PROCINDX, SEGINDX, and CARDINDX tables, 
see Diagrams 8, 9, and 10 in "Section 2: Program Organization." 



Displ 
Dec Hex Field Name Bytes Field Description 
PTCDVB 3 Card-number and verb-number on source listing 



Bit 

0-19 
20-23 



Contents 

Card-number 

Verb-number 



PTRELAD 



Relative address of instructions for this entry 
within program fragment to which it belongs 



CARDINDX TABLE 



The CARDINDX table is a directory to the SEGINDX table and contains one 5-byte entry for 
each program fragment and one entry for each discontinuity in the COBOL instructions 
within a segment. Entries in the CARDINDX table are in ascending card-number order and 
are accessed by indexing through the table sequentially. 

The CARDINDX table starts at the beginning of a block. 

For the relationships among this table and the PROCTAB, PROCINDX, and SEGINDX tables, 
see Diagrams 8, 9, and 10 in "Section 2: Program Organization." 

Displ 
Dec Hex Field Name Bytes Field Description 



CXCDVB 



Card-number and verb-number of first card 
represented by this entry 



Bits 

0-19 
20-23 



Contents 

Card-number 

Verb-number 



3 3 CXPRIOR 1 Priority number associated with this card 

H 4 CXFRAG 1 Relative fragment number within the priority 

to which this card belongs 
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SEGINDX TABLE 



The SEGINDX table contains one 10-byte entry for each program fragment. The table is 
ordered on two levels: 

1- Ascending priority number 

2« Ascending fragment number within a priority 

For the relationships among this table and the PROCTAB„ PROCINDX, and CARDINDX tables, 
see Diagrams 8, 9, and 10 in "Section 2: Program Organization." 



Displ 

Dec Hex Field Name Bytes Field Description 

SXPRIOR 1 Priority number 

1 1 SXRELAD 3 



SXPTLOC1 



Address of this fragment relative to the 

beginning of the segment 

Table locator for PROCTAB entry of first 

card number and/or verb-number in this 

fragment 



SXPTLOC2 



Bits 



Contents 



0-14 Relative Block number in 
PROCTAB 
15-23 Displacement within block 
Table locator for PROCTAB entry of last card and/or 
verb in this fragment 



PROCINDX TABLE 



The PROCINDX table is a summary index of the PROCTAB table and contains one 10-byte entry 
for each block of PROCTAB entries. PROCINDX entries are ordered by relative block number 
in the PROCTAB table and are accessed by searching sequentially after indexing to a 
starting point determined by the block number from the CARDINDX or SEGINDX table. 

For the relationships among this table and the PROCTAB, SEGINDX, and CARDINDX tables, 
see Diagrams 8„ 9, and 10 in "Section 2: Program Organization." 



Displ 
Dec Hex 




Field Name Bytes Field Description 

PXCDVB 3 Card-number and verb-numner of first entry in block 
of PROCTAB table. 




Contents 

Card-number 

Verb-number 



3 3 PXRELAD 3 Relative address of instructions for this 

entry within segment to which it belongs 

6 6 PXDEVADR 4 Device address of PROCTAB table block related 

to this entry. 
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EXECUTION-TIME TABLES FOR DEBUG OPERATIONS 

The following four tables are built in virtual storage by the SYMDMP subroutines from 
information in the Debug File and the control cards for a program compiled with the 
SYMDMP option. They are used for producing the dump to meet dynamic dump request and at 
abnormal termination. 



DATADIR TABLE 



The DATADIR table is a directory to the DATATAB table and only exists when a DYNAMTAB 
table exists. There is one fixed-length 8-byte entry for each distinct DATATAB block 
which contains an identifier specified on a line-control card. Entries are in the order 
in which requests appeared on line-control cards. 



Displ 
Dec Hex 




Field Name 
DDDEVADR 



DDSW 



DDCORE 



Bytes Field Description 

4 Device address of DATATAB block in debug 
file 

1 Switch - If bit is equal to 1, the block 

is not in virtual storage.. If bit is equal 
to 0, the block is in virtual storage. 

3 Address of DATATAB block in virtual storage 



Note : This table is limited by the 7-bit indexes in the DYLOCNM field of the DYNAMTAB 
table to a maximum of 128 entries. If the maximum is exceeded, a message is produced and 
further dynamic dumping requests are ignored. 
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DYNAMTAB TABLE 



The DYNAMTAB table summarizes dynamic dump requests and contains one entry for each 
line-control card. The table entries are composed of a fixed and variable portion. 
Entries are variable in length with a minimum length of 17 bytes. DYNAMTAB entries are 
chained together, and each entry begins with the address of the next entry. The end of a 
group of entries for one program is marked by the DYLASTDY switch. The DYNAMTAB table is 
searched sequentially; the search ends at the entry in which the DYLASTDY switch is on. 

Fixed Portion 



Displ 
Dec 

3 



14 
17 



Hex 

3 



11 



Field Name 

DYNXTDY 

DYSW 



Bytes 
3 
1 



DYCDVB 



DYPRIOR 
DYCOBINS 

DYINSADR 
DYONS 



Field Description 

Address of next DYNAMTAB entry 

Switch 



Name 

DYALL 

DYHEXALL 

DYON 

DYLASTDY 

DYSKPDMP 



Bit 

1 
2 
3 
4 



Contents 



If 1, ALL specified 
If 1, HEX with ALL specified 
If 1, ON specified 
If 1 # Last DYNAMTAB entry 
If 1, No dump - ON value is wrong 
Card-number and/or verb-number 
Bits Contents 

0-19 Card-number 
20-23 Verb-number 
Priority of this card 

Machine instruction corresponding to card and 
verb 

instruction in virtual storage 
ON specified 
Contents 



Address of this 
Only present if 



Name 
DYON1 
DYON 2 
DY0N3 
DYONCUR 



Bytes 
2 
2 
2 
2 



Start value 
Increment value 
End value 
Current value 



Variable Portion 



For each DYIDSW 

request 

for a 

single 

identifier: 



DYLOCNM 



For each 

request 

for 

identifier 

THRU 

identifier: 



Switch 
Name 



DYHEXID 
DYTHRUID 



Bit 


1 



Contents 



If 1, HEX specified for this request 

If 1, THRU specified (entry is 

5 bytes long) 
DYERRID 2 If 1, error in this request; 

ignore it 
Table-locator for this identifier, consisting of: 
Bits Contents 
0-6 Entry number in DATADIR to find device 

address of DATATAE entry for this 

identifier 
7-15 Displacement in DATATAE block of entry 

for this identifier 
If THRU is specified, table-locator (same 
format as above) for identifier which is 
the object of THRU 



Note : A dummy table-locator of hex *0001' is used to represent TALLY; a dummy 
table-locator of hex •0002' is used to represent SORT-RETURN. 
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PCONTROL TABLE 



The PCONTROL table contains information about each program requesting the symbolic dump 
option within a run unit and consists of one fixed-length 76-byte entry for each 
program-control card. Entries begin on a fullword boundary and are chained together. 
Each entry is followed by the DYNAMTAB table, DATADIR table, and, if necessary for 
dynamic dumping, the OBODOTAB table for the program. 



Displ 



Dec 


Hex 


Field Name 


Bytes 








PCPROGID 


8 


8 


8 


PCFILNAM 


7 


15 


F 


PCSYSNNN 


1 


16 


10 


PCBL1 


4 


20 


14 


PCBLL1 


4 


24 


18 


PCSBL1 


4 


28 


1C 


PCDTF1 


4 


32 


20 


PVCLC1 


4 


36 


24 


PCINDEX1 


4 


40 


28 


PCANXTPC 


4 



44 2C PCADYTAB 
48 30 PCAOBODO 



52 



34 



PCACOE 



56 


38 


PCATRANS 


60 


3C 


PCADATDR 


64 


40 


PCDMPLNG 


66 


42 


PCTRLNG 


68 


44 


PCDDNUM 


70 


46 


PCPRIOR 


71 


47 


PCSW 



Field Description 

PROGRAM- ID 

File name of debug file (the default is IJSYS05) 

nnn of SYSnnn for the debug file in binary 

BL1 address 

BBL1 address 

SBL1 address 

DTF1 address 

VLC1 address 

INDEXl address 

Address of the next PCONTROL entry (if this is 

the last entry, this field contains zeros) 

Address of DYNAMTAB for this program (if there 

is no DYNAMTAB, this field contains zeros) 

Address of OBODOTAB in virtual storage 

(If OBODOTAB is not in virtual storage, 

this field contains zeros) 

Address of start of overlayable virtual 

storage in root segment 

Address of start of Transient Area 

Address of DATADIR, if present (if there is 

no DATADIR, this field contains zeros) 

Length of overlayable virtual storage in 

root segment 

Length of Transient Area 

Number of DATADIR entries 

Last non-root segment entered (if any) 

Switch 

Contents 



Name 

PCHEX 

PCENTRY 

PCPDUMP 

PCMT 

PCDYNAM 

PCRELOC 

PCIOERR 



Bit 

1 
2 
3 
4 
5 



If 1, HEX specified 
If 1, ENTRY specified 
If 1, PDUMP specified 

MT specified 

No DYNAMTAB exists 

Address (BL1 through INDEXl) 

have been relocated 

I/O error found on debug file 



If 1, 
If If 
If 1. 



If 1, 



72 



48 



PCFIB1 



Address of first FIB cell 
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QUALNAMS TABLE 



The QUALNAMS table is an area overlaying SCANP (ILBDMP11) , in which identifiers are 
entered in a iranner to permit a batched sequential search through the DATATAB table for 
the names requested on line-control cards. The QUALNAMS table contains one entry for 
each identifier named on a line-control card. Each entry is composed of a fixed and 
variable portion. Entries are in the order in which identifiers and names (qualifiers) 
appeared on line-control cards. 

Fixed Portion 



Displ 
Dec Hex 




Field Name 
QCODE 



Bytes Field Description 

2 Switch and displacement 



QDEVADR 



Name 
QID 



Bats 



Contents 



If 1, beginning of an entry 

for an identifier 
QFOUND 1 If 0, identifier is not resolved 

If 1, identifier has been found 

in DATATAB 
QTHRU 2 If 1, request for this identifier 

followed by THRU 
3-6 Unused 
QDISP 7-15 Contains zeros until identifier has 

been found in DATATAB; then it 

contains the displacement in the DATATAB 

block containing the entry for 

the identifier 
Contains zeros until identifier has been found 
in DATATAB; then it contains the device address 
of the DATATAB block containing the entry for 
the identifier 



Variable Portion 



For each ONMLEN 
name (qual- 
ifier) QNAME 
making 
up the 
identifier: 



1 Number of bytes (n) in the following 

name 
n Name (qualifier) 

Name Bits Contents 

QNMZONE 0-3 These bits are used as a switch 
to indicate whether the name has 
been found in DATATAB. When it 



has not been found, they contain 
normal zone bits for the letter or 
number which begins the COBOL name. 
When the name has been found, they 
are set to zero to prevent 
searching for the name again. 
Note ; There is no special end marker for the QUALNAMS table, but the address of the last 
byte of the table is entered in the Common Data Area. The search of the QUALNAMS table 
is sequentially forward through the indent if iers, and sequentially backward within an 
identifier entry, from the most inclusive to the least inclusive qualifier. 
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CONTROL BLOC KS FOR VSAM 

The following two control blocks are required to process input/output requests for 
VSAM files. 

VSAM FILE INFORMATION BLOCK (FIB) 

The file information block, a portion of the completed object module, is used at 
execution time by the ILBDINTO, ILBDVOCO, and ILBDVIOO COBOL library subroutines for 
processing input/output verbs used with VSAM files. The FIB is built by phase 21 and 
completed by the ILBDVOCO subroutine. 

Fixed Portion: 



Displacement 




No. Of 


Hex Decimal 


Field 


Bytes 





IFIBID 


1 


1 1 


IFIBLVL 


1 


2 2 


INAMED 


7 


9 9 


INAMEDB 


1 


A 10 




1 


B 11 


I ORG 


1 



Description 

FIB identification code: 

FIB level number 

External name 

External name 

Reserved 

Organization 



X'l' 



Code: 



Bits 
0-7 



Equate 
Name 
IORGVPS 
IORGVIX 



Bit 

Settings 
1000 1000 
0100 1000 



Meaning 

VSAM ADDRESSED SEQUENTIAL 

VSAM INDEXED 



12 



IACCESS 



13 

14 



IRCDMODE 1 
ISW1 1 



ACCESS MODE 
Code: 



Bits 
0-7 



0-7 



Equate 

Name 

IACCSEQ 

IACCRAN 

IACCDYN 

IRCDFIX 



Bit 

Settings 
1000 0000 
0100 0000 
0010 0000 



Miscellaneous switches 
Code: 



Meaning 
SEQUENTIAL 
RANDOM 
DYNAMIC 



1000 0000 Fixed length records 



16 
18 
1A 
IB 
1C 
IE 
20 
22 
23 
24 
26 



15 

22 
24 
26 
27 
28 
30 
32 
34 
35 
36 
38 



Bits 
0-7 



Equate 
Name 
ISOPTNL 
ISSAMREC 



ISSAME 
Reserved 



Bit 

Settings 
1000 0000 
0010 0000 

0001 0000 



Meaning 

OPTIONAL specified 

SAME RECORD AREA 

specified 

SAME RECORD specified 



IRECLEN 2 Number of bytes in longest 01-entry 

IRECDBL 2 Displacement in TGT of record's first base locator cell 

IRECNBL 1 Number of base locators for RECORD AREA 

1 Reserved 

ISTATDBL 2 Displacement in TGT of base locator for STATUS data-name 

ISTATDDN 2 Displacement from base locator of STATUS data-name 

ISTATLDN 2 Length of STATUS data-name 

1 Reserved 

IKEYNO 1 Number of entries in key list 

IKEYFNTL 2 Length of each entry in key list 

IPSWISW 1 Miscellaneous switches 
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Displacement 



Hex 

27 

28 

2A 

38 

3C 
40 
44 
48 



Decimal Field 



39 
40 
42 
56 

60 
64 
68 
72 



IPSWNO 
IPSWENTL 

IMISCAD 



IKEYLSTA 
IPSWLSTA 



No. of 

Bytes Description 

1 Number of entries in password list 

2 Length of each entry in password list 
14 Reserved 

4 Address in variable length portion of FIB for 

miscellaneous clauses 

4 Reserved 

4 Address of first key list entry 

4 Address of first password list entry 

16 Reserved 



Variable Length Portion : 

Supplementary Information for miscellaneous clauses (one for each clause) : 



Displacement No. of 

Hex Decimal Field Bytes 
IMSW1 2 



Description 
Switch bytes 

Code: 



Bits 

0-7 

8-15 



Equate 

Name 

IMRREOV 



Bit 

Settings 
1000 0000 



Meaning 

RERUN at end of volume 

Reserved 



IRERUNI 



IRERUNN 



4 RERUN integer (field contains zeros if RERUN not 

specified) 
2 Slack bytes 
8 External-name of RERUN clause 



Key List Entry: (one per user-defined key — RECORD/ALTERNATE/RELATIVE) 

Displacement 
Hex Decimal Field 
KEYSW 



NO. Of 
Bytes 

1 


Description 
Miscellaneous switches 




Code: 






Bits 
0-7 


Equate Bit 
Name Settings 
IKEYCCMP 1000 0000 



1 IKEYLDN 1 

2 IKEYDBL 2 
4 IKEYDDN 2 



Meaning 

Key is USAGE COMP (binary) 



Length of key data-name 

Displacement of key data-name's locator in TGT 

Data-name displacement from locator 



Password List Entry: (one per password) 











IPSWDIXN 



IPSWDLDN 
IPSWDDBL 
IPSWDDDN 



1 Associated index number 

= none 

1 = primary 

1 Length of password data-name 

2 Displacement of password data-name's locator in TGT 
2 Data-name displacement from locator 
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VSAM FILE CONTROL BLOCK 

The VSAM File Control Block is created by the ILBDINTO COBOL library subroutine. It 
is used by the ILBDVIOO and ILBDVOCO subroutines to interface with the VSAM system 
control subroutines. 



DiS] 


olaceitient 




No. Of 


Hex 


Decimal 


Field 


Bytes 








FCBID 


1 


1 


1 


FCBLVL 


1 


2 


2 


FOPENOPT 


4 


6 


6 


FCLOSOPT 


4 


A 


10 




2 


C 


12 


FCOBRTN 


4 


10 


16 


FUSERR 


4 


14 


20 


FUSELIST 


4 


18 


24 




6 


IE 


30 


FRECKEY 


1 


IF 


31 


FADVANC 


1 


20 


32 


FENDINV 


4 


24 


36 




12 


30 


48 


FOPENOPS 


4 



Description 

FCB identification code: 'F' 

FCB level number 

Save area for OPEN options 

Save area for CLOSE options 

Reserved 

Address of COBOL transmitter routine 

Address of USE... ERROR declarative 

Address of USE declarative Exit List 

Reserved 

Number of RECORD KEY 

Reserved 

Return address from INVALID KEY, AT END, or end-of-page 

Reserved for compilation-dependent fields 

Options for VSAM OPEN verb 

Code: 



34 



52 



FCLOSOPS 



Bits 
0-7 


Equate 

Name 

FOPIN 


Bit 

Settinqs 
1000 0000 


Meaning 

INPUT 




FOPOUT 


0100 


0000 


OUTPUT 




FOPIO 


0010 


0000 


I-C 




FOPEXT 


0001 


0000 


EXTEND 


8-15 


Reserved 








16-23 


FOPUERR 


1000 


0000 


USE...E1 
address 


24-31 


FTSORT 


1000 


0000 


Called : 


VSAM CLOSE options 






Code: 










Bits 
0-7 


Equate 

Name 

FCLLOCK 


Bit 

Settings 
0001 0000 


Meaning 
LOCK 


8-31 


Reserved 









.ERROR declarative 



38 



56 



FSW1 



Miscellaneous switches 
Code: 



Equate Bit 
Bits Name Settinqs Meaning 
0-7 FSOPEN 1000 0000 File is open 

FSLOCKED 0100 0000 File is closed with lock 
FSOPTNL 0010 0000 Optional file not present 
FSOKACT 0001 0000 Successful action has 

occurred since open 
FSEOF 0000 1000 Sequential read has 

encountered end-of-file 
FSVCORE 0000 0100 Main storage to process 

this open has been 
acquired 
8-31 Reserved 
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Displacement 




No. of 












Hex Decimal 


Field 


Bytes 


Descri 


ption 








3C 6 


FTRSTMT 


4 


Transmission statement 


switches 








Code: 
















0-7 


FTREAD 


0000 


0100 


READ statement 










FTWRITE 


0000 


1000 


WRITE statement 










FTREWRT 


0000 


1100 


REWRITE statement 










FTSTART 


0001 


0000 


START 










FTDELET 


0001 


0100 


DELETE statement 








8-15 


FTINVKEY 


1000 


0000 


INVALID KEY 










FTATLND 


0100 


0000 


AT END 










FTNEXT 


0000 


0010 


NEXT 










FTKEY 


0000 


0001 


KEY 








16-23 


FTSRCHGT 


1000 


0000 


GREATER THAN 










FTSRCHEQ 


0100 


0000 


EQUAL TO 










FTSRCHGE 


0010 


0000 


NOT LESS THAN 








24-31 


Reserved 









40 


64 


FSYSCBAL 


4 


44 


68 


FSYSCBLL 


4 


48 


72 


FSYSCBNO 


2 


4A 


74 


FKEYLEN 


2 


4C 


76 


FRECCNT 


4 


50 


80 


FFIBAD 


4 


54 


84 


FWORKAD 


4 


58 


88 


FRECA 


4 


5C 


92 


FSAMRECA 


4 


60 


96 


FSTATKEY 


2 


62 


98 


FLASTREQ 


1 



Address of system control blocks address list 

Address of system control blocks lengths list 

Number of system control blocks (DTF, DCB f ACB) 

Length of KEY data-name 

Record count for checkpoint subroutine, if RERUN 

specified 

Address of File Information Block (FIB) 

Address of system-dependent work area 

Address of current record area 

Address Of SAME RECORD AREA 

STATUS KEY work area 

Last I/O statement 



63 



99 



13 



Code: 





Equate 


Bit 




Bits 


Name 


Settings 


Meaninq 


0-7 


FLASTRD 


0000 Q100 


READ 




FLASTWRT 


0000 1000 


WRITE 




FLASTRWT 


0000 1100 


REWRITE 




FLASTSTR 


0001 0000 


START 




FLASTDLT 


0001 0100 


DELETE 




FLASTOPN 


0001 1000 


OPEN 




FLASTCLO 


0001 1100 


CLOSE 


Reserved 
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COUNT PROGRAM DATA AREAS 



The COUNT subroutines use the following 
data areas: 

• The verb translate, verb, and verb text 
tables, contained in subroutine 
ILBDTC30 

• The count table, contained in each 
object module 

• The verbsuni table, space for which is 
obtained dynamically by ILBDTC30. 
There is one table for all program 
units being monitored 

• The count chain, space for which is 
gotten dynamically by subroutine 
ILBDTCOO for each program unit 

• The node count table, which is part of 
the count chain 

• The count common area, which is in 
subroutine ILBDTCOO 

• The debug common area, which is in 
subroutine ILBDDBGO 

All these data areas are described below 
except the debug common area, which is 
described elsewhere in this section. 



COUNT SUBROUTINE TABLES 



Diagram 13 in "Section 2: Program 
Organization" shows the relationship among 
the six tables used by the COUNT 
subroutines. Their formats are shown 
below. 



Verb Translate, Verb, and Verb Text Tables 



The basic input to subroutine ILBDTC30 is 
count table entries, which desbribe the 
occurrence of verbs in the source program. 
These verbs are expressed in Pl-code form 
to save space. ILBDTC30 uses the verb 
translate, verb, and verb text tables to 
translate the Pl-code into the EBCDIC 
characters for the verb names. 

Each verb translate table entry is one 
byte. Its hexadecimal displacement within 
the table corresponds to a unique Pl-code. 
An entry with a displacement of X*25', for 
instance, represents the verb ACCEPT, the 
Pl-code for which is X'25'. Each entry 
contains either X'FF' (if there is no verb 
for the corresponding code) or the entry 
number for the verb in the verb table. 



The verb table contains a four-byte 
entry for each COBOL verb, the entries 
being arranged by verb name in alphabetic 
order. Byte one of each. entry contains the 
length of the entry for the verb in the 
verb text table. The remaining three bytes 
contain the address of the verb text table 
entry. 

The verb text table consists of all the 
COBOL verbs in EBCDIC format, listed in 
alphabetic order. 



Count Table 



The count table contains an entry for each 
verb encountered in the source program, in 
the order of its appearance. The format is 
as follows: 

Byte Contents 

Identity code, as follows: 

00 End of table 

01 Procedure-name 

02 Verb 

1 Length of rest of entry (n) 

2-4 Card number (omitted if byte 0=00) 
5-6 Count-block number (X'00* if non- 
executable verb) 
7 Pl-code for verb 



or 



7 Procedure-name in EBCDIC 
though 
n + 1 



Verbsum Table 



The verbsum table contains an entry for 
each verb in the COBOL language, arranged 
in alphabetic order. The format is as 
follows: 

Byte Contents 

0-1 Static verb count: the number of 

times the verb occurs in the 

program. 
2-3 Dynamic count: the number of 

these verbs that are actually 

executed 
4-7 The total number of times these 

verbs are executed. 

For instance, if the source program 
contains three ACCEPT statements, only two 
of which are executed — one twice and the 
other three times, the static count is 3, 
the dynamic count 2, and the total 
execution 5. 
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COUNT CHAIN 



There is one chain element for each program being monitored, 
as follows: 



The format of an element is 



Displacement 




NO. Of 


Hex 


Decimal 


Field 


Bytes 








TCFORPTR 


4 


4 


4 


TCEACKPT 


4 


8 


8 


TCPGMID 


8 


10 


16 


TCTMCNTB 


4 


14 


20 






18 


24 


TCNODNUM 


4 


1C 


28 






24 


36 


TCNODTBA 


4 


28 


40 






2C 


44 


TCPRVCNT 


4 


30 


48 


TCCHAINL 


4 


34 


52 


TCTGTPTR 


4 


38 


56 







Description 

Forward pointer 

Backward pointer 

Program name 

Pointer to count table 

Reserved 

Number of counters in node count table 

Reserved 

Pointer to start of node count table 

Reserved 

Pointer to previous COUNT COUNT TABLE 

Length of this chain element 

Pointer to TGT of program being monitored 

Node count table (variable length) 



Node Count Table 



Each entry is a half word counter for a count-block in the source program, 
of the entry in the table corresponds to the number of the block. 



The position 



Count Common Area 

There is only one count common area, regardless of how many programs are being monitored. 
The contents of the area are as follows: 



Displacement 




NO. Of 








Hex Decimal 


Field 


Bytes 


Descripti 


on 







TMCNFLG 


1 


Flags 
Equate 












Name 


Code 


Meaning 








CNTFLG 


X B 40* 


Programs being monitored 








TCINIT 


X'20' 


First entry bit 








CTPROCOF 


X'04« 


Count percents off 








INTCRT 


X'10' 


In a count subroutine 








CNTFLGOF 


X"BF" 


Turn off CNTFLG 








INTCRTOF 


X'EF* 


Turn off INTCRT 



TMCNFLG 2 



2 


2 


TMCNFLG3 


3 


3 


TMCNDECP 


4 


4 


CNTSUM 


8 


8 


TCAVBSUM 


C 


12 


TCLVBSUM 


10 


16 





Flags 

Equate 
Name 



TCERRFLG 

TCSVHDSW 

NEEDSUMS 

Reserved 
1 Decimal point is comma 
4 Count-sum 

4 Address of verbsum table 
4 Length of verbsum table 
4 Reserved 



Code Meaning 

Processing count error 
Save HEAD1 switch 



X"80" 
X fl 40* 
X"20" 



Need count summary statistics 
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Displacement 




NO.. Of 


Hex Decimal 


Field 


Bytes 


14 20 


TCSAVR14 


4 


18 24 




24 


30 48 


TMCNCHN 


4 


34 52 


TMCNSV 


72 


7C 124 


TMCN2SV 


72 


C4 196 


TMCNWKl 
through 
TMCNWKP 


100 



Description 

Save area for register 14 

Reserved 

First chain address of count chain 

Save area for ILBDTC00 and ILBDTC30 

Save area for ILBDTC20 and secondary save area for 

ILBDTC00 

Work areas of four bytes each with names 

in the following series : TMCNW1 through TMCNWK9 and 

then TMCNWKA through TMCNWKP. 



Note : TMNCNWK2 must always be on a doubleword 
boundary. 



128 296 
1A1 417 
1A4 420 



TCSVHED1 



121 Save area for HEAD1 of DBG0COM 
3 Filler 
56 Reserved 
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SECTION 4: DIAGNOSTIC AIDS 



This section provides a few diagnostic aids 
for use in case an execution-time error 
occurs which is not a user error. Such an 
error may produce one of two results: an 
abnormal termination or an erroneous output 
from a compiled program. 



Note : The compiling program-narre, its 
version numbers, its modification number, 
and the PROGRAM-ID can be found at the end 
of the INIT1 routine in the listing of the 
program. INIT1 is at the end of the object 
module listing. 
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DIAGNOSTIC AIDS FOR PROGRAM OPERATIONS 



EXECUTION-TIME MESSAGES 



The ILBDMVEO subroutine issues the 
following message on SYSLOG. 

C126D IS IT EOF? 



A few messages, not specified by the 
user directly or by the system, may be 
printed during execution of the problem 
program. These messages originate in the 
COBOL library subroutines. 

If the SYMDMP option is in effect, these 
messages are followed by the SYMDMP 
abnormal termination message and dump of 
the Data Division. 

If the SYMDMP option is not in effect 
but the DUMP option is in effect, a partial 
dump is taken from the problem program 
origin to the highest virtual storage 
location of the last phase loaded. When 
this occurs, the eight bytes immediately 
preceding the DTF are destroyed. 

The format of messages C112I through 
C125I is: 

Cmmml SYSnnn filename DTFaddress text 

See Figure 6 for mmm (message number) and 
text. These messages are issued on SYSLST 
and SYSLOG prior to cancellation of the 
job. 

The debugging routines (SYMDMP, STATE, 
FLOW, and COUNT) themselves may, in 
addition to their normal diagnostic output, 
issue messages. The format of these is: 

Cmmml ( program-id )text 
\ card/verb-number / 

See Figure 7 for mmm (message number) and 
text. These messages are written on 
SYSLST. 



The ILBDSSNO subroutine issues the 
following message on SYSLOG and SYSLST: 



C140I INVALID SEPARATE SIGN 
CONFIGURATION 



r - t t - 


j MESSAGE 






J NUMBER 


TEXT 


SUBROUTINE 


J. 








J C112I 


PARITY ERROR 


ILBDSAEO 


| C113I 


WRONG LENGTH RECORD 


ILBDSAEO 


| C114I 


PRIME DATA AREA FULL 


ILBDISEO 


| C115I 


CYLINDER INDEX TOO 
SMALL 


ILBDISEO 


| C116I 


MASTER INDEX TOO SMALL 


ILBDISEO 


| C117I 


OVERFLOW AREA FULL 


ILBDISEO 


| C118I 


DATA CHECK IN COUNT 


ILBDISEO 


| C119I 


DATA CHECK IN KEY OR 
DATA 


ILBDDAEO 


| C120I 


NO ROOM FOUND 


ILBDDAEO 


| C120I 


DASD ERROR 


ILBDISEO 


| C122I 


DASD ERROR WHILE 
ATTEMPTING TO WRITE 
RECORD ZERO 


ILBDFMTO 


J C123I 


FILE CANNOT BE OPENED 
AFTER CLOSE WlTH LOCK 


ILBDCLKO 


| C12UI 


CYLINDER AND MASTER 
INDEX TOO SMALL 


ILBDISEO 


| C125I 


NO EXTENTS 


$$BCOBRl 



L J X J 



Figure 6. 



Execution-Time Messages for I/O 
Error Conditions 
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r t 

MESSAGE 
NUMBER 



TEXT 



SUBROUTINE/ACTION 



C150 
C151I 
C152I 
CI 531 

C154I 

C155I 
C156I 

C157I 

C158I 

C159I 

C160I 
C161I 
C162I 
C163I 

C164 
C165I 



C169I 
C170I 
C171I 



C172I 
C173I 
C175I 



IDENTIFIER NOT FOUND 
CARD NUMBER NOT FOUND 
VERB NUMBER NOT FOUND 
NO ROOM TO DUMP 

I/O ERROR ON DEBUG FILE 

WRONG DEBUG FILE FORE PROGRAM 
NO ROOM FOR DYNAMIC DUMPS 



INVALID FILE-NAME 

INVALID LOGICAL UNIT 

MISSING PARAMETERS 

INVALID OPTION 

SUBSCRIPTING ILLEGAL 

ON PARAMETER TOO BIG 

FLOW TRACE NON-CCNTINUOUS. 

MORE THAN 10 PROGRAMS 

ENCOUNTERED 

FLOW TRACE IN EFFECT BUT 

NO PROCEDURES TRACED 

SYMDMP/STATE/FLOW/COUNT 

INTERNAL ERROR. EXECUTION 

CANCELLED 

STATE OPTION CANCELLED 

INVALID ADDRESS 

SPACE NOT FOUND FOR THE COUNT 

CHAIN. CONTINUING. 

SPACE NOT FOUND FOR THE 

VERBSUM TABLE. CONTINUING- 

FREEVIS FAILED. EXECUTION 

CANCELLED. 

INVALID COUNT TABLE ENTRY. 

EXECUTION CANCELLED. 



ILBDMP13 - Dump request on line-control card 

for this identifier is ignored. 

ILBDMP14 - Line-control card with 

non-existent card number is skipped. 

ILBDMP1U - The nearest verb number is used 

instead of the specified one. 

ILBDMP11 and ILBDMP21 - Data Division dump 

(and sometimes COBOL statement number 

message) not given. 

ILBDMP12, ILBDMP13, ILBDMP14, ILBDMP21, 

ILBDMP22, ILBDMP25 - SYMDMP output is 

cancelled for the program. 

ILBDMP12 and ILBDMP21 - SYMDMP output is 

cancelled for the program. 

ILBDMP12, ILBDMP13, ILBDMP14 - Dynamic 

dumping (but not abnormal termination 

dumping) is cancelled for the program. 

ILBDMP11 - All SYMDMP output is cancelled for 

program. 

ILBDMP11 - All SYMDMP output is cancelled for 

program., 

ILBDMP12 - The option with missing parameter 

is ignored. 

ILBDMP11 - The option is ignored 

ILBDMP12 - The subscripts are ignored. 

ILBDMP12 - The number is reduced to 32767. 

ILBDFLWO - Tracing is terminated 

upon encountering an 11th 

PROGRAM-ID. Tracing resumes only upon 

returning to one of the original 10 programs. 

ILBDFLWO - No action. 

Job is cancelled. 



ILBDSTNO - Output cancelled. 

ILBDADRO - Symbolic Dump is produced. 

ILBDTC00 - Count output for the program is 

cancelled for this entry into the program 

unit., 

ILBDTC30 - Verb statistics suppressed. 



Job is cancelled. 
Job is cancelled. 



Note : Messages C150I through C162I may appear interspersed among the SYMDMP control 
cards at the point at which the error is recognized. PROGRAM-ID is specified for 
messages C153I through C162I. For C150I through C152I, the PROGRAM-ID is that of the 
nearest preceding program-control card, and the card/verb number of the corresponding 
line-control card is given instead. 

Messages CI 531 through C155I may also appear in the midst of the dump output if the 
error condition is not recognized until dumping has started. 

L 

Figure 7. Error Messages from Debugging Subroutines 
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STORAGE LAYOUT 



An example of the general storage usage 
for a COBOL program being executed in the 
background area is given in Figure 8. 

The memory map printed as a result of 
the LISTX option contains the relative 
afdresses of the TGT fields, the literal 
pool, PGT fields, the instructions 
generated from the Procedure Division, and 
the INIT2, INIT3, and INIT1 routines, in 
that order. (See the publication IB M 
DOS/VS Compiler Progr a m Logic , Order 
No- LY28-6423, for a discussion of these 
ion of these fields.) The absolute 
addresses can then be found with the 
assistance of the phase map (see Figure 9). 



LOCATING A DTF 



A particular DTF may be located in an 
execution time dump as follows: 

1. Determine the order of the DTF address 
(DTFADR) cells in the TGT from the DTF 
numbers shown for each file-name in 
the GLOSSARY. 

Note : Since the order is the same as 
the order of FD's in the Data 
Division, it can be determined from 
the source program whether the SYM 
option was not used (that is, no 
GLOSSARY was printed) . 



Permanent storage locations used 
by CPU; Communication Region; 
Supervisor Nucleus; 
I/O Units Control Tables; and 
Transient Area 



CONTROL 
PROGRAM 



BACK- 
GROUND 



FORE- 
GROUNDS 
II S I 



OBJECT 
MODULE 



INIT1 

Working-Storage 

DTF's and Euffers 

TGT 

PGT 

Literals 

Report Writer 

Procedure Division 

(Priority less than 

segment limit) 
Q-routines 
COUNT Table 
INIT2 
INIT3 
Transient Area 

(Nonresident 
Segments) 



LIOCS Modules 

COBOL Library Subroutines 



j. 

♦The object module is not always first in 
its partition. 

l 

Figure 8. Example of Storage Used During 
Execution 
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PHASE XFR-AD LOCORE HICORE DSK-AD ESD TYPE 
PHASE*** 07D878 07D878 07F1FF 05F OF 4 CSECT 



* UNREFERENCED SYMBOLS 



002 UNRESOLVED ADDRESS CONSTANTS 



LABEL LOADED REL-FR 

TESTRUN 07D878 07D878 RELOCATABLE 



CSECT 


IJFFBZZN 


07E1C8 


07E1C8 


* ENTRY 


IJFFZZZN 


07E1C8 




* ENTRY 


IJFFBZZZ 


07E1C8 




* ENTRY 


IJFFZZZZ 


07E1C8 




CSECT 


ILBDSAEO 


07F078 


07F078 


ENTRY 


ILBDSAE1 


07F0C0 




CSECT 


ILBDMNSO 


07F07 


07F070 


CSECT 


ILBDIMLO 


07F018 


07F018 


CSECT 


ILBDDSPO 


07E578 


07E578 


ENTRY 


ILBDDSP1 


07E978 




CSECT 


ILBDDSSO 


07ECF0 


07ECF0 


ENTRY 


ILBDDSS1 


07EF50 




ENTRY 


ILBDDSS2 


07EFU8 




ENTRY 


ILBDDSS3 


07F008 




ENTRY 


ILBDDSS4 


07ED16 




ENTRY 


ILBDDSS5 


07EDC2 




ENTRY 


ILBDDSS6 


07EE22 




ENTRY 


ILBDDSS7 


07EDEC 




ENTRY 


ILBDDSS8 


07ED46 




CSECT 


IJJCPDV 


07EAA8 


07EAA8 


ENTRY 


IJJCPDV1 


07EAA8 




* ENTRY 


IJJCPDV 2 


07EAA8 




WXTRN 


STXITPSW 






WXTRN 


ILBDDBG2 







I Figure 9. Example of a Phase Map 



Determine the relative starting 
address of the block of DTFADR cells 
from the TGT listing in the Memory 
map. 



3. Calculate the absolute starting 

address of the block by adding the 
hexadecimal relocation factor for the 
beginning of the object module as 
given in the linkage editor map. 



4. Allowing one fullword per DTFADR cell, 
count off cells from the starting 
address found in Step 3, using the 
order determined in Step 1, to locate 
the desired DTFADR cell. 

5. The DTFADR cell contains the absolute 
address of the desired DTF. 

Note ; The procedure for locating a 
secondary DTF is essentially the same, 
the only differences being that the 
SUBDTF address cells pointed to by the 
PGT are used and that the order of the 
cells is input, output, input/output, 
or input reversed. 



LOCATING DATA 



The location assigned to a given 
data-name may be similarly be found by 
using the BL number and displacement given 
for that entry in the GLOSSARY, and 
locating the appropriate one-word BL cell 
in the TGT. The hexadecimal sum of the 
GLOSSARY displacement and the contents of 
the cell should give the relative address 
of the desired area. This can then be 
converted to an absolute address as above. 



SPECIAL DIAGNOSTIC AIDS FOR DEBUGGING 
SUBROUTINES 



VIRTUAL STORAGE LAYOUT 



The virtual storage layout of the Debug 
Subroutines when SYMDMP is in effect is 
shown in Diagram 6. (See "Program 
Organization" section,. ) 
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TABLES USED BY SYMDMP 



The status of the tables built or 
referenced by the SYMDMP subroutines may 
reveal how much processing the SYMDMP 
subroutines had done before the dump 
occurred. Each of the tables on the Debug 
File is brought into virtual storage by the 
subroutine or subroutines which access it. 
The OBODOTAB table, however, is brought 
into virtual storage by subroutine ILBDMP21 
and remains in virtual storage throughout 



the execution of the program. The other 
tables, listed in Figure 10, are built by 
the subroutines themselves froir information 
located in the Debug File. The Debug File 
is designated as SYS005 during compilation; 
but it may be designated according to the 
user's option at execution time. 



Figure 10 shows the tables used by the 
SYMDMP subroutines together with the 
compiler phases or the subroutines which 
use them. 



TABLE 


4. 


Built by 


1 
4._ 


Used by 




1 
4. 


Location 




T 




T 






T 




CARDINDX 


J. 


Phase65 


1 
4. 


ILBDMP1U, 


ILBDMP25, 


1 
4. 


Debug File* 




T 




T 






T 




DATADIR 


"+- 


ILBDMP13 


1 


ILBDMP21, 


ILBDMP22 


1 
-+- 


Virtual Storage 


DATATAB 


-+- 


Phase 25 


1 
1 


ILBDMP13, 
ILBDMP22 


ILBDMP21, 


1 
1 


Debug File* 


DYNAMTAB 


H- 


ILBDMP12, 
ILBDMP13, 
ILBDMP14 


1 
1 
1 


ILBDMP21, 


ILBDMP22 


1 
1 
1 


Virtual Storage 


FLOW 




ILBDFLWO, 


1 


ILBDFLW2 




1 


Virtual Storage 


TRACE 




ILBDFLW1 


1 






1 






1 




— 4— 






4. 






T 




T 






T 




OBODOTAB 


J, 


Phase 25 
(if ODO in 
program) 


1 

1 

1 
4. 


ILBDMP21, 


ILBDMP22 


1 

1 

1 
4. 


Debug File, Main 
Storage* 




T 




t 






T 




PCONTROL 


I 


ILBDMP11 
ILBDMP12 


1 
1 
1 
1 

1 

1 
4. 


ILBDMPIO, 
ILBDMP12, 
ILBDMP14, 
ILBDMP21, 
ILBDMP23, 
ILBDMP25 


ILBDMP11, 
ILBDMP13, 
ILBDMP20, 
ILBDMP22, 
ILBDMP24, 


1 

1 

1 

1 

1 

1 
4._ 


Virtual Storage 








T 






T 




PROCINDX 




Phase 65 


1 


ILBDMP14, 


ILBDMP25 


1 


Virtual Storage 


















PROCTAB 


"+- 


Phase 65 


1 


ILBDMP14, 


ILBDMP25 


1 


Debug File* 


PROGSUM 


4. 


Phase 65 


1 

1 
4. 


ILBDMP12, 
ILBDMP22 


ILBDMP21 


1 

1 
L_ 


Debug File* 




T 




T 






r 




QUALNAMS 




ILBDMP12 


1 


ILBDMP13 




1 


Virtual Storage 




| 




_4_ 






4. 
















T 




SEGINDX 




Phase 65 


1 


ILBDMP14, 


ILBDMP25, 


1 


Debug File* 



H- 



♦ Note ; Each of the tables on the Debug File is read into virtual storage when it is 
used by one of the subroutines. The OBODOTAB table, however, is read into virtual 
storage by ILBDMP21 and remains there throughout the execution of the program which is 
being debugged. 

L 

Figure 10. Tables Used by Debugging Subroutines 
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APPENDIX A: FLOWCHART LABEL DIRECTORY 



$$BFCMUL 


FH 


01 


A2 


$$BPDUMP 


EK 


01 


J5 


$$BCOBEM 


JB 


01 


B3 


$$BCOBEM 


EL 


01 


Al 


$$BCOBER 


HK 


01 


C3 


$$BCOBER 


HF 


01 


F3 


$$BCOBER 


GB 


01 


C4 


$$BCOBER 


FC 


01 


H4 


$$BCOBER 


EJ 


01 


A3 


$$BCOBER 


EG 


01 


C3 


$$BCOBRl 


EJ 


01 


H3 


$$BC0BR1 


EK 


01 


Al 


ACCP02 


EC 


01 


H4 


ACCP03 


EC 


01 


D3 


ACCPOU 


EC 


01 


E4 


ACT00002 


HN 


01 


Dl 


ACT00004 


HN 


01 


El 


ACT00680 


HN 


01 


C2 


ACT00700 


HN 


01 


Fl 


ACT00704 


HN 


01 


F2 


ACT00736 


HN 


01 


Gl 


APARTN 


JU 


01 


D2 


APWOTEXT 


FA 


01 


E5 


ASANDTVT 


FA 


02 


C2 


BASEADDR 


HM 


01 


CI 


BEFTSTVU 


FA 


01 


GH 


ELKADD 


GA 


01 


B2 


BLKLOAD 


GA 


01 


Dl 


BOF 


EH 


01 


E3 


BOFBOV 


EH 


01 


D3 


EOFBOV 


EI 


01 


Dl 


BOF1 


EI 


01 


E2 


BOV 


EH 


01 


E4 


BOV 


EI 


01 


Fl 


BUFSD 


FB 


01 


E2 


BYTELOOP 


JQ 


01 


C3 


CALLDBG1 


JU 


01 


B4 


CALLD1D2 


JS 


01 


J3 


CALLSYM 


JA 


02 


Gl 


CANTFIND 


JW 


01 


G3 


CHECKIT 


JI 


01 


D3 


CHECKIT 


JI 


01 


FU 


CHECKIT 


JI 


01 


B4 


CHKDMP 


EK 


01 


JI 


CHKNXT 


FH 


01 


J3 


CHKSEQ 


HC 


01 


B3 


CHKUSASI 


HJ 


01 


JI 


CHKWRAFT 


HJ 


01 


Gl 


CHKIST 


EI 


01 


D2 


CKCODE 


JB 


01 


C2 


CLEANIT 


JR 


01 


D3 


CLOSEFIL 


JI 


01 


B5 


CLOSEGIV 


CA 


02 


F2 


CLOSEIT 


JI 


01 


D2 


CLOSEIT 


JI 


01 


B5 


CNTRLRTN 


JU 


01 


A3 


COBDBG2 


JC 


01 


G2 


COLLECT 


JK 


01 


B5 


COMCLOSE 


CA 


01 


E5 


COMCLOSE 


CA 


03 


G3 


COMPTR 


FH 


01 


D2 


COMRTN 


CA 


03 


HI 


COM1 


HJ 


01 


Dl 



CONSOL 

CONSOLE 

CONTEXIT 

CONT100 

CONVRT 

COUNTER 

C2128 



DAMPDS 

DEG6RET 

DEAD 

DEV2321 

DEV3330 

DIAGTEST 

DIEXIT 

DILOOP 

DISP01 

DIVIDE 

DKTYPE 

DMPB01 

DOWITH1U 

DTFDA 

DUMP 

DUMPFD 

DUMPIT 

DUMPRD 

DUMPSD 

.DUMPTGT 

DUMPTGT 

DYNCARD 



EF 

EJECTl 

EJHEAD 

ENDINIT 

EOF 

EOF 

EOF 

EOF 

EOF 

EOF 

EOFIN 

ERREXIT 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR1 

ERRTN 

EXHIB 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT1 

E15ROUT 

E35ROUT 



EC 


01 


D2 


EB 


02 


B3 


KB 


01 


HI 


KB 


01 


CI 


EB 


01 


CU 


HC 


01 


El 


HH 


01 


H2 


JA 


01 


Bl 


JE 


01 


Dl 


JC 


01 


A3 


HH 


01 


BH 


HH 


01 


J3 


JG 


01 


B5 


EA 


02 


C2 


EA 


02 


E3 


EA 


01 


F3 


FA 


01 


A4 


EK 


01 


C4 


EA 


02 


CI 


JW 


01 


H2 


EH 


01 


J3 


JC 


01 


B3 


JV 


01 


D4 


JP 


01 


H2 


JV 


01 


D5 


JV 


01 


B5 


JV 


01 


C2 


JS 


01 


B2 


JM 


01 


G2 


EI 


01 


C5 


JB 


01 


J2 


JB 


01 


J4 


JJ 


01 


D3 


CA 


03 


G2 


HG 


01 


G2 


HD 


01 


D2 


GA 


01 


G5 


EI 


01 


F3 


EH 


01 


F2 


JK 


01 


D2 


JX 


01 


D2 


JO 


01 


G5 


JN 


01 


F5 


JL 


01 


E3 


JL 


01 


B3 


JL 


01 


K2 


JK 


01 


Al 


JK 


01 


CI 


HJ 


01 


F5 


HE 


01 


H4 


HD 


01 


G3 


HF 


01 


E2 


JB 


01 


B2 


EA 


01 


F4 


JA 


02 


H3 


FH 


01 


E2 


FA 


02 


K3 


EH 


01 


K5 


CC 


01 


K2 


cc 


01 


Kl 


CA 


01 


A4 


CB 


01 


Al 
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FETCH 


JP 


01 


H3 


FETCHPHS 


JJ 


01 


G2 


FGLST 


EJ 


01 


C3 


FILLDY 


JN 


01 


C4 


FIRSTIME 


FB 


01 


K2 


FORMAT 


HG 


01 


D2 


GET 


GA 


01 


E5 


GETELM 


JL 


01 


D2 


GETNXT 


FH 


01 


F3 


GETPTR 


ED 


01 


El 


GETSPACE 


JR 


01 


BH 


GETSTATE 


JW 


01 


BU 


GIVECORE 


JQ 


01 


D2 


GIVING 


CA 


02 


El 


GOCOBOL 


CA 


01 


J5 


GOODBYTE 


JK 


01 


D5 


GOODRET 


JL 


01 


H3 


GOTCDVB 


JW 


01 


F4 


GOTPARM 


KC 


01 


Dl 


GOTPRID 


JR 


01 


Dl 


GOTSX 


JW 


01 


CU 


GTPXBLK 


JO 


01 


B4 


GT256 


CB 


01 


D2 


HAVELEN 


JV 


01 


E2 


HEADERTN 


JU 


01 


C2 


HEADLINE 
HEXDUMP 


JG 


01 


DU 


JV 


01 


F2 


HEXDUMP 


JV 


01 


G4 


HEXDUMP 


JU 


01 


C5 


HEXDUMP 


JR 


01 


H3 


HEXDUMP 


JQ 


01 


A2 


HEXOUT 


JQ 


01 


F5 


HEXRTN 


JU 


01 


C5 


H3330 


HH 


01 


Dl 


IBERR 


GA 


01 


F2 


IC1GT18 


HH 


01 


GH 


IC2GT198 


HH 


01 


G2 


IC2GT254 


HH 


01 


J4 


IC2GT8 


HH 


01 


EU 


IH1GT3 


HH 


01 


CH 


IH2GT8 


HH 


01 


D2 


IH2GT18 


HH 


01 


D3 


ILBDABXO 


FG 


01 


A4 


ILBDACPO 


EC 


01 


Al 


ILBDASYO 


EE 


01 


A3 


ILBDCKPO 


CB 


01 


DU 


ILBDCKPO 


ED 


01 


Al 


ILBDCKP1 


ED 


01 


A2 


ILBDCKP2 


ED 


01 


A3 


ILBDCKP3 


ED 


01 


A4 


ILBDCLKO 


EG 


01 


A3 


ILBDCRDO 


HA 


01 


A3 


ILBDCT10 


KB 


01 


Al 


ILBDDAEO 


HD 


01 


G3 


ILBDDAEO 


HE 


01 


H4 


ILBDDAEO 


HI 


01 


KU 


ILBDDAEO 


HJ 


01 


F5 


ILBDDAEO 


HK 


01 


A2 


ILBDDBGO 


JH 


01 


Bl 


ILBDDBGO 


JH 


01 


G5 


ILBDDBGO 


JP 


01 


J4 


ILBDDBGO 


JA 


01 


Al 


ILBDDBGO 


CC 


01 


G3 



ILBDDBG1 


JB 


01 


Al 


ILBDDBG1 


JW 


01 


HU 


ILBDDBG1 


JV 


01 


J5 


ILBDDBG1 


JV 


01 


F5 


ILBDDBG1 


JV 


01 


B5 


ILBDDBG1 


JV 


01 


EU 


ILBDDBG1 


JV 


01 


F3 


ILBDDBG1 


JU 


01 


B4 


ILBDDBG1 


JS 


01 


G4 


ILBDDBG1 


JR 


01 


Gl 


ILBDDBG1 


JQ 


01 


EH 


ILBDDBG1 


JK 


01 


D3 


ILBDDBG1 


JK 


01 


El 


ILBDDBG1 


JG 


01 


EH 


ILBDDBG1 


JG 


01 


J5 


ILBDDBG1 


JF 


01 


J2 


ILBDDBG2 


JH 


01 


G5 


ILBDDBG2 


JC 


01 


Al 


ILBDDBG3 


JC 


01 


AH 


ILBDDBGU 


JC 


01 


A5 


ILBDDBG5 


JD 


01 


Al 


ILBDDBG6 


JE 


01 


Al 


ILBDDBG8 


JE 


01 


A3 


ILBDDIOO 


HI 


01 


Al 


ILBDDIOl 


HI 


01 


A2 


ILBDDI02 


HI 


01 


A3 


ILBDDI03 


HI 


01 


A4 


ILBDDI04 


HI 


01 


A5 


ILBDDSRO 


HD 


01 


Al 


ILBDFLWO 


JG 


01 


Al 


ILBDFLWO 


JA 


01 


EU 


ILBDFLW1 


JG 


01 


A2 


ILBDFLW2 


JG 


01 


A4 


ILBDFLW2 


JW 


01 


K4 


ILBDFLW2 


JC 


01 


H5 


ILBDFLW3 


JG 


01 


A3 


ILBDFMTO 


HF 


01 


Al 


ILBDIDAO 


HD 


01 


Gl 


ILBDIDAO 


HF 


01 


Gl 


ILBDIDAO 


HH 


01 


Al 


ILBDIMLO 


FD 


01 


A3 


ILBDISEO 


GB 


01 


Al 


ILBDISE1 


GB 


01 


A2 


ILBDISMO 


GA 


01 


Al 


ILBDISM1 


GA 


01 


A2 


ILBDISM2 


GA 


01 


A4 


ILBDISM3 


GA 


01 


A5 


ILBDMFTO 


FE 


01 


A2 


ILBDMOVO 


CB 


01 


A2 


ILBDMOVO 


EI 


01 


B3 


ILBDMOVO 


FA 


02 


CH 


ILBDMOVO 


FA 


02 


D3 


ILBDMOVO 


FA 


03 


G3 


ILBDMOVO 


FB 


01 


K2 


ILBDMP01 


JI 


01 


A2 


ILBDMP01 


JN 


01 


CI 


ILBDMP01 


JN 


01 


G2 


ILBDMP01 


JO 


01 


C2 


ILBDMP01 


JO 


01 


F2 


ILBDMP01 


JO 


01 


AH 


ILBDMP01 


JO 


01 


CU 


ILBDMP01 


JS 


01 


F2 


ILBDMP01 


JT 


01 


Gl 


ILBDMP02 


JI 


01 


A2 


ILBDMP02 


JN 


01 


CI 


ILBDMP02 


JN 


01 


G2 



190 



Licensed Material - Property of IBM 



ILBDMP02 


JO 


01 


C2 


ILBDMP02 


JO 


01 


F2 


ILBDMP02 


JO 


01 


A4 


ILBDMP02 


JO 


01 


en 


ILBDMP02 


JS 


01 


F2 


ILBDMP04 


JX 


01 


Al 


ILBDMP10 


JH 


01 


Dl 


ILBDMP10 


JJ 


01 


A2 


ILBDMP10 


JL 


01 


K3 


ILBDMP10 


JM 


01 


H5 


ILBDMP10 


JA 


02 


HI 


ILBDMP10 


JA 


01 


D4 


ILBDMP10 


JA 


01 


C2 


ILBDMP11 


JH 


01 


Fl 


ILBDMP11 


JJ 


01 


E2 


ILBDMP11 


JL 


01 


A2 


ILBDMP12 


JH 


01 


HI 


ILBDMP12 


JJ 


01 


G2 


ILBDMP12 


JM 


01 


A2 


ILBDMP12 


JN 


01 


K4 


ILBDMP13 


JH 


01 


Kl 


ILBDMP13 


JM 


01 


D5 


ILBDMP13 


JN 


01 


Al 


ILBDMP1U 


JH 


01 


K2 


ILBDMP14 


JJ 


01 


H2 


ILBDMP14 


JO 


01 


A2 


ILBDMP20 


JH 


01 


A3 


ILBDMP20 


JJ 


01 


F4 


ILBDMP20 


JP 


01 


A2 


ILBDMP20 


JR 


01 


Kl 


ILBDMP20 


JR 


01 


E2 


ILBDMP20 


JR 


01 


K5 


ILBDMP20 


JS 


01 


E3 


ILBDMP20 


JS 


01 


B5 


ILBDMP20 


JW 


01 


B3 


ILBDMP2 


JW 


01 


K5 


ILBDMP20 


JC 


01 


J3 


ILBDMP20 


JA 


01 


D4 


ILBDMP20 


JA 


01 


C2 


ILBDMP21 


JH 


01 


D3 


ILBDMP21 


JH 


01 


B4 


ILBDMP21 


JP 


01 


F2 


ILBDMP21 


JP 


01 


H3 


ILBDMP21 


JR 


01 


Al 


ILBDMP22 


JH 


01 


F3 


ILBDMP22 


JP 


01 


H2 


ILBDMP22 


JS 


01 


Al 


ILBDMP22 


JT 


01 


Kl 


ILBDMP22 


JV 


01 


J2 


ILBDMP22 


JV 


01 


J4 


ILBDMP23 


JH 


01 


H4 


ILBDMP23 


JS 


01 


J2 


ILBDMP23 


JU 


01 


A2 


ILBDMP23 


JV 


01 


K4 


ILBDMP24 


JH 


01 


J3 


ILBDMP24 


JS 


01 


C2 


ILBDMP24 


JS 


01 


J3 


ILBDMP24 


JV 


01 


A2 


ILBDMP25 


JH 


01 


E3 


ILBDMP25 


JP 


01 


G2 


ILBDMP25 


JW 


01 


A2 


ILBDMVEO 


FF 


01 


A3 


ILBDNSLO 


EI 


01 


Al 


ILBDNSL2 


EI 


01 


A2 


ILBDRCRO 


HB 


01 


A3 


ILBDRDI1 


HJ 


01 


A2 



ILBDRDSO 


HI 


01 


A2 


ILBDRFMO 


HH 


01 


A2 


ILBDOSYO 


EF 


01 


A2 


ILBDSAEO 


FC 


01 


A3 


ILBDSAE1 


FC 


01 


A4 


ILBDSEMO 


CC 


01 


Al 


ILBDSPAO 


FA 


01 


Al 


ILBDSSNO 


IA 


01 


Al 


ILBDSSN1 


IA 


01 


Fl 


ILBDSTNO 


JF 


01 


Al 


ILBDSTNO 


JC 


01 


K5 


ILBDTCOO 


KA 


01 


A2 


ILBDTC20 


KC 


01 


Al 


ILBDTC30 


KD 


01 


Al 


ILBDUSLO 


EH 


01 


Al 


ILBDUSL1 


EH 


01 


A2 


ILBDUSL2 


EH 


01 


HI 


ILBDVBLO 


FA 


03 


D4 


ILBDVBLO 


FA 


01 


G5 


ILBDVBLO 


FB 


01 


Al 


ILBDXTNO 


HC 


01 


Al 


INCIH2 


HH 


01 


Fl 


INCORE 


CC 


01 


HI 


INIT 


CC 


01 


J2 


INITDYN 


JR 


01 


B5 


INITFLS 


CA 


03 


D3 


INITLOOP 


CA 


03 


D4 


INITRTN 


CA 


03 


B2 


INPFINAL 


CA 


01 


JU 


INTO 


HL 


01 


CI 


INT0002 


HL 


01 


Dl 


INVKEY 


GA 


01 


D2 


IPTRL 


EI 


01 


C4 


ISDMP2IN 


JS 


01 


C2 


ISITALL 


JQ 


01 


F4 


ISITALL 


JV 


01 


H3 


ISITHEX 


JM 


01 


B4 


ISITLAST 


JR 


01 


H5 


ISITNEW 


JR 


01 


CI 


ISITPX 


JW 


01 


D4 


ISQFOUND 


JN 


01 


D4 


LASTPRNT 


JG 


01 


F5 


LBRET 


EI 


01 


H5 


LBRET 


EH 


01 


H5 


LBRET1 


EH 


01 


J5 


LINELOOP 


JQ 


01 


E2 


LOAD 


CA 


01 


Kl 


LOAD 


JA 


02 


Fl 


LOADP2 


JJ 


01 


E4 


LOOPDBG2 


JC 


01 


Fl 


LPUBPTR 


FH 


01 


K3 


LWRCASE 


EC 


01 


G4 


MAIN 


JA 


02 


CI 


MDCLOSE 


HM 


02 


Al 


MDC1000 


HM 


02 


Bl 


MDC100U 


HM 


02 


CI 


MDC1006 


HM 


02 


Dl 


MDC1008 


HM 


02 


El 


MDC1020 


HM 


02 


Fl 


MDC1060 


HM 


02 


G3 


MDC1064 


HM 


02 


H2 


MDC3 000 


HM 


02 


J2 


MDC3004 


HM 


02 


K2 


MDC3016 


HM 


02 


K4 
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MDC3050 


HM 


02 


K5 


MDOPEN 


HM 


01 


Dl 


MDO1000 


HM 


01 


El 


MDO1002 


HM 


01 


F2 


MDO1004 


HM 


01 


HI 


MDO1006 


HM 


01 


J2 


MDO2000 


HM 


01 


A4 


MDO3000 


HM 


01 


B4 


MDO5002 


HM 


01 


E4 


MDO6000 


HM 


01 


A5 


MDO6004 


HM 


01 


B5 


MDO6016 


HM 


01 


C5 


MDO7000 


HM 


01 


E5 


MFT1 


FE 


01 


G2 


MFT2 


FE 


01 


H2 


MNEMONI 


FA 


01 


G2 


MNEMONIX 


FA 


01 


H2 


MNEMON2 


FA 


02 


H5 


MORETOGO 


JN 


01 


B2 


MOVE 


JD 


01 


C3 


MOVE 


EI 


01 


B2 


MOVECORE 


CA 


01 


Fl 


MOVEKEY 


HD 


01 


E2 


MOVE1 


FA 


02 


D2 


MVCTLCHR 


FA 


02 


Gl 


MVTOBF 


EA 


02 


EU 


MVTOBF 


EB 


01 


G3 


NEWDNAME 


JN 


01 


H2 


NEWFILE 


JI 


01 


E2 


NEWLINE 


JQ 


01 


B2 


NEWPROG 


JR 


01 


D4 


NEXTCELL 


JV 


01 


D2 


NEXTDBG2 


JC 


01 


Kl 


NEXTENTRY 


JS 


01 


G2 


NLS5 


EI 


01 


GU 


NOCOB 


JA 


02 


B2 


NCDUMP 


EK 


01 


Kl 


NONLD 


JV 


01 


B3 


NOPDUMP 


JR 


01 


J3 


NOPROC 


EH 


01 


F4 


NOSEGM 


JA 


02 


D2 


NOSYM 


JA 


01 


E3 


NCSYM 


CA 


01 


Jl 


NOTBOMB 


JR 


01 


El 


NCTDTFMT 


ED 


01 


HI 


NOTEND 


JQ 


01 


G3 


NOTFIRST 


JA 


01 


D2 


NOTFST 


CC 


01 


Bl 


NOTOPEN 


ED 


01 


C2 


NOTOUT 


JA 


01 


D3 


NOTSORT 


ED 


01 


E3 


NOTVASA 


FA 


03 


F2 


NSL4 


EI 


01 


A5 


NXTCRD 


JL 


01 


E4 


NXTDATAB 


JN 


01 


D2 


NXTDY 


JO 


01 


J4 


NXTDYCRD 


JM 


01 


B5 


NXTENTRY 


JT 


01 


Al 


NXTENTRY 


JV 


01 


H3 


NXTEXIT 


JT 


01 


K5 


NXTEXIT 


JT 


01 


H2 


NXTPRM 


EA 


02 


G4 


NXTPROG 


JJ 


01 


E2 


NXTXTNT 


HD 


01 


H2 



OBODORTN 


JU 


01 


D3 


ODODONE 


JR 


01 


K4 


ONLIST 


EK 


01 


El 


OPEN 


EF 


01 


E2 


OPENDTF 


ED 


01 


G5 


OPENIT 


JI 


01 


B2 


OPEN1 


EF 


01 


C4 


OPEN2 


JI 


01 


C2 


OPN 


JB 


01 


E3 


OUTFINAL 


CA 


02 


Kl 


PACKED 


FA 


01 


Kl 


PFLOW 


JC 


01 


G5 


POINT 


EH 


01 


Gl 


POINTFIL 


JI 


01 


B4 


POINTNXT 


JV 


01 


G2 


PRELUDE 


HL 


01 


Bl 


PRELUDE 


HM 


01 


Bl 


PRELUDE 


HN 


01 


Bl 


PRINT 


JW 


01 


H4 


PRINT 


JV 


01 


E4 


PRINT 


JV 


01 


J5 


PRINTDMP 


JQ 


01 


E4 


PUT 


GA 


01 


K3 


PUT 


FA 


03 


H2 


PUT 


EB 


02 


Dl 


PUT 


CA 


02 


HI 


PWCL1 


FC 


01 


H3 


RD14 


HJ 


01 


C4 


READ 


CA 


01 


E4 


READ 


CA 


03 


Fl 


READEXIT 


JI 


01 


J3 


READEXIT 


JK 


01 


K5 


READFIL 


JI 


01 


B3 


READIPT 


JM 


01 


K4 


READIPT 


JM 


01 


B5 


READIPT 


JM 


01 


D4 


READIPT 


JM 


01 


C3 


READIPT 


JM 


01 


H2 


READIPT 


JM 


01 


E2 


READIPT 


JL 


01 


E4 


READIPT 


JL 


01 


J3 


READIPT 


JL 


01 


H2 


READIPT 


JL 


01 


D2 


READIPT 


JK 


01 


Al 


READIPT 


JJ 


01 


D2 


READIT 


JI 


01 


C3 


READIT 


JI 


01 


H3 


READIT 


JI 


01 


E4 


READLIB 


EI 


01 


Jl 


READ 2 


JK 


01 


B2 


READU 


JK 


01 


C3 


REMAINER 


FA 


02 


FU 


RESTORE 


JR 


01 


E3 


RESUME 


CA 


01 


Bl 


RET 


JO 


01 


H5 


RET 


JP 


01 


J2 


RET 


JW 


01 


K5 


RET 


JW 


01 


B3 


RET 


JV 


01 


J2 


RET 


JV 


01 


J4 


RET 


JS 


01 


B5 


RET 


JR 


01 


K5 


RET AD 


CA 


01 


F4 


RETN 


JB 


01 


El 
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RETURN 


CB 


01 


B3 


RETURN 


EE 


01 


E3 


RETURN 


EF 


01 


F2 


RETURN 


EH 


01 


B4 


RETURN 


EB 


02 


D3 


RETURN 


HC 


01 


H3 


RETURN 


HD 


01 


Kl 


RETURN 


HH 


01 


Gl 


RETURN 


FG 


01 


A2 


RETURN 


KC 


01 


HI 


RETURN1 


EG 


01 


B2 


SAVEREC 


FA 


01 


El 


SEEKON 


JM 


01 


J2 


SEGLAB1 


CC 


01 


El 


SEGWT 


cc 


01 


Gl 


SETAPWOS 


FA 


03 


AU 


SETDISP 


JT 


01 


B2 


SETSTOP 


EC 


01 


CI 


SINGLEON 


JI 


01 


DU 


SPACECTL 


FA 


02 


F3 


SPECENTR 


KD 


01 


B3 


SSA 


HJ 


01 


G5 


STACK 


JG 


01 


F2 


START 


JJ 


01 


B2 


STEPID 


JS 


01 


C4 


STEPUP 


JN 


01 


E3 


STEP2 


KA 


01 


D2 


STEP2 


KD 


01 


CI 


STEP2400 


KA 


01 


J2 


STEP3 


KD 


01 


Fl 


STEP4 


KD 


01 


Gl 


STEP5 


KD 


01 


H2 


STOQNAME 


JM 


01 


JH 


STOREKEY 


HJ 


01 


HI 


SYM 


JA 


01 


C2 


SYMDMP 


JD 


01 


El 


SYMDMP 


JH 


01 


Al 


TAPEREC 


ED 


01 


J3 


TCERRRTN 


KC 


01 


C2 


TCOOEXIT 


KA 


01 


J2 


TC3EXIT 


KD 


01 


E2 


TESTCORE 


CA 


01 


El 


TESTMODE 


CA 


01 


Dl 


TESTVAR 


CA 


02 


Gl 


TEXTCTL 


FA 


01 


CH 


TEXT 01 


FA 


01 


D2 


TGTLOOP 


JA 


02 


Bl 


TRANS 


FC 


01 


H4 


TRANS 


HK 


01 


B3 


TRANS 


GB 


01 


C3 


TRUNC 


FB 


01 


Kl 


TRUNC 


FB 


01 


G5 


TRYFLOW 


JW 


01 


JU 


TRYPDUMP 


JR 


01 


F3 


TRY1U 


JW 


01 


F2 


TSTASA 


FA 


01 


D2 


TSTDTFSD 


EH 


01 


H3 


TSTERR 


HJ 


01 


F4 


TSTFILSZ 


CA 


01 


CI 


TSTINPRC 


CA 


01 


C4 


TSTLAST 


CA 


02 


C2 


TSTMNEM 


FA 


01 


F2 


TSTOF 


EH 


01 


Dl 


TSTPCH 


EF 


01 


B3 



TSTPRM 


EA 


02 


B3 


TSTPRM 


EB 


01 


B3 


TSTSYM 


HC 


01 


A3 


TYPERTN 


JU 


01 


F2 


TYTYPE 


EK 


01 


B3 


UNDFVUND 


FA 


03 


B3 


UNIQUE 


JR 


01 


G5 


UNITCK 


EA 


01 


C2 


UNITCON 


EA 


01 


D4 


UNITREC 


FG 


01 


G2 


UNIT01 


EA 


01 


D2 


UNIT10 


EA 


01 


E2 


UNIT12 


EA 


01 


F2 


UNIT15 


EA 


01 


H2 


UPDY 


JO 


01 


J2 


UPLAST 


JC 


01 


G3 


USASIRD 


HJ 


01 


GU 


USER 


HK 


01 


F2 


USER 


GB 


01 


G2 


USER 


FG 


01 


J2 


USER 


FC 


01 


K3 


USER 


EI 


01 


K2 


USING 


CA 


01 


D4 


VARET 


EA 


02 


D4 


VGIV 


CA 


02 


G2 


VIO0 


HN 


01 


CI 


VNOP 


CC 


01 


Dl 


VUNBTEXT 


FA 


03 


B3 


VUNDSPAC 


FA 


03 


D3 


WILLFIND 


JR 


01 


F5 


WORDLOOP 


JQ 


01 


B3 


WRITDIAG 


JG 


01 


C5 


WRITE 


CA 


02 


Fl 


WRITEBUF 


JG 


01 


E4 


WRITELBL 


EI 


01 


G3 


WRITE1 


JB 


01 


F5 


WRITE1 


JB 


01 


B4 


WRITE1 


JB 


01 


Dl 


WRITE1 


JB 


01 


D2 


WRITEl 


JB 


01 


D3 


WRITE1 


JB 


01 


D4 


WRITEl 


JB 


01 


D5 


WRITEl 


JB 


01 


J2 


WRITEl 


JB 


01 


J3 


WRITEl 


JB 


Ql 


J4 


WRTFOOT 


JB 


01 


D3 


WRTFOOT 


JB 


01 


J3 


WRTHEAD 


JB 


01 


DU 


WRTNOEJ 


JB 


01 


D2 
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The words listed below are defined 
according to their use in this book, and 
the definitions are not necessarily 
applicable elsewhere. Efforts have been 
made to exclude terms which are common in 
the programming profession unless they are 
used in a special sense. 

Base Locator (BL) ; A 4-byte address cell 
in the TGT. There is one BL pointing to 
the Report Section, one to the 
Working-Storage Section, and one to each 
FD, SD, and RD entry. Any FD, SD, or RD 
entry exceeding 4,096 bytes has one BL 
assigned to each 4,096 bytes. The compiler 
loads a register with each address unless 
there are too many BL's. In that case, it 
loads registers with BL°s as they are 
needed. 

Base Locator for Linkage Section (BLL) ; A 
4-byte address cell in the TGT. BLL f s are 
assigned by counter and are unique. BLL1 
points to a work area used to process label 
records. BLL2 through BLLn are assigned to 
each 77-level and each 01-level entry in 
the Linkage Section. Any 77- or 01-level 
entries exceeding 4,096 bytes have one BLL 
assigned per 4,096 bytes. 

BL ; See Base Locator. 

BLL : See Base Locator for Linkage Section. 



Count-block: 



A set of COBOL verbs such 



that (exclusive of ABENDS) each verb in the 
block is executed if, and only if, the 
first verb is executed. 

Debug Text : A type of debugging text which 
contains card numbers, their displacement 
within the object module, the priority of 
each segment, and discontinuity elements. 

Dummy PN : A procedure-name, defined by the 
user, but not referenced in any branch 
instruction- 
Fragments: A portion of code having a 
maximum size of one less than 64K bytes 
(65,535). A fragment begins with the first 
byte of a verb and ends with the first byte 
of a verb preceding the verb with a final 
relative displacement greater than 64K 
bytes. This unit is used in processing for 
the SYMDMP or STATE option. 

GN : See Procedure-name. 

Initialization Routines : Collectively, 
routines INITl, INIT2, and INIT3. These 
are generated by the compiler as part of 



the object module. 

Linkage : As used in this book "linkage" is 
synonymous with "calling sequence." 

Major Code : A 4-bit code identifying the 
different types of DATATAB and CBODOTAB 
table entries. 

Master of an OCCURS Clause with the 
DEPENDING ON Option : A data-name for a 
variable- length group item which does not 
itself contain an OCCURS clause with the 
DEPENDING ON option, but at least one of 
its subordinate items at the next level 
does contain an OCCURS clause with the 
DEPENDING ON option. 

Minor Code : A 4-bit code identifying the 
type of operand in the DATATAE table entry 
of an LD item.. 

Node : The beginning of a count-block. 

Object module : The result of a successful 
compilation. It is the output of a single 
execution of the compiler and is the input 
to the linkage editor. 

Optimizer (OPT) Option : An option which 
directs the compiler to produce an object 
module, optimized for PN addressability and 
register usage. The resultant code uses 
Procedure Blocks to address procedure-names 
that are referenced in branch instructions. 
This option reduces the number of 
instructions required for branches. 

PGT : See Program Global Table. 

PN : See Procedure-name. 

Priority : See Segmentation. 

Procedure-name (GN, PN, or VN) : The name 
of a point in a program which can be the 
object of a branch instruction. PN's are 
the user-assigned procedure-names which 
correspond to paragraph or section names in 
the Procedure Division of the source 
program. GN's are compiler-generated and 
are inserted wherever a need for an 
additional name occurs. VN's are variable 
names; that is, they may vary at execution 
time because of a PERFORM or ALTER 
statement. All procedure-names are unique 
since they include a number assigned by a 
counter (e.g., PN1, VN2, GN1, and GN2) . 

Procedure Block : Unit of addressability in 
the object module where the optimizer (OPT) 
option is specified. Each Procedure Block 
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consists of approximately 4096 bytes of 
code. Most PN's and GN's within a 
Procedure Block are addressed as 
displacements added to a base register 
which contains the address of the first 
instruction of the Procedure Block. 

Program Global Table (PGT) : A part of the 
object module- The PGT contains virtuals, 
literals, and addresses used during 
execution. 

Program unit : Any COBOL main program or 
any COBOL subprogram. 

Q-routine ; One of a set of routines 
generated by Phase 22. Q-routines 
calculate the length of variable-length 
fields and the location of variably located 
fields resulting from an OCCURS clause with 
the DEPENDING ON option. 

Root Segment : See Segmentation. 

SBL : See Secondary Base Locator. 

Secondary Base Locator (SBL) : A 4-byte 
address cell in the TGT. The compiler 
assigns a unique SBL, using a counter in 
COMMON, to each variably located field. At 
execution time, each SBL points to its 
field. Variably located fields are those 
which follow a variable-length field and 
which are not new files or records; they 
occur as a result of OCCURS. . .DEPENDING ON 
statements in the source program. If a 
variably located field exceeds 4,096 bytes, 
the compiler assigns one SBL to each 4,096 
bytes. 

Section : A series of source program 
procedure instructions grouped under the 
same section-name. 

Segment : A section or a group of sections 
all having the same priority. 

Segmentation : A special feature of the 
compiler which permits the programmer to 
organize his program into several load 



modules. Each section in the Procedure 
Division is assigned a priority number. 
All sections having the same priority are 
loaded together as a segment. One of 
these, the root segment, resides in virtual 
storage throughout execution of the 
program. The other segments are loaded in 
order of the priority number, each segment 
overlaying the one before. 



Table : An area in virtual storage 
containing a number of entries of a fixed. 



often identical, format. 



Task Global Table (TGT) : A part of the 
object module. The TGT contains 
information, addresses, and work areas for 
use during execution. 



TGT: 



See Task Global Table (TGT) 



Transient area : A portion of virtual 
storage reserved during execution time to 
contain segments which are not permanently 
resident. It contains one such segment at 
a time and is large enough to hold the 
largest nonresident segment in the program. 

UPSI : User Program Status Information. 
There are eight 1-bit UPSI switches 
provided by the DOS/VS system. The UPSI 
feature of this compiler provides the 
facility of naming and using these 
switches. 

Verb string : A verb and its operands. 

Virtual: The name of a procedure or table 
referenced by a procedure, but not defined 
in the source module. It is necessary 
because of a CALL to an external procedure 
or a branch to a CCBOL library subroutine. 
At execution time, the address of all 
procedures referred to by virtuals (which 
have been link edited into the load module) 
are stored in the Program Global Table. 

VN: See Procedure-name. 
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$$BCOBEM (SYMDMP error message) subroutine 

described 36 

flowchart 98 
$$BCOBER (error message preparation) 
subroutine 

core image library 9 

described 3 5 

flowchart 96 
$$BC0BR1 (error message printing) 
subroutine 

core image library 9 

described 36 

flowchart 97 
$$BFCMUL (SA reposition tape) subroutine 

core image library 9 

described 39 

flowchart 109 



abnormal termination 

debug subroutine flow of control 67 
STIXIT macro instruction subroutines 
object-time debugging 46,132 
sequential access 39,108 
SYMDMP program operation 52 
ACCEPT statement subroutine 
described 34 
flowchart 89 
alphanumeric edit subroutine described 27 
ALTWK option (SORT-OPTION parameter) 

described 23 
American National Standard COBOL program: 

subroutine for linkage to 31 
arithmetic conversion subroutines (cited 
here by function; otherwise, use 
individual subroutine name for reference 
elsewhere) 

all numeric forms to external 

floating-point 15 
binary to external decimal 12 
binary to internal decimal 12 
binary to internal floating-point 13 
external decimal to binary 14 
external decimal to internal 

floating-point 13 
external floating-point to internal 

floating-point 16 
internal decimal to binary 14 
internal decimal to internal 

floating-point 13 
internal decimal to Sterling 

nonreport 15 
internal decimal to Sterling report 14 
internal floating-point to binary 13 
internal floating-point to internal 

decimal 14 
parameter conventions 12 
Sterling nonreport to internal 
decimal 15 
arithmetic verb subroutines (cited here by 
function; otherwise, use individual 



subroutine name for reference elsewhere) 
decimal division 16 

decimal fixed-point exponentiation 16 
decimal multiplication 16 
floating-point exponentiation to integer 

exponent 17 
floating-point exponentiation to 

noninteger exponent 17 
ASCII support subroutine 
described 44 
flowchart 128 



base locator defined 195 

base locator (Linkage Section) defined 195 

binary to external decimal conversion 

subroutine described 12 
binary to internal decimal conversion 

subroutine described 12 
binary to internal floating-point 

conversion subroutine described 13 
BL (base locator) defined 19 5 
BLL (Linkage Section base locator) 

defined 195 



CALL FIND subroutine described 53-54 
calls to subroutines, phases generating 10 
CALL1D2 (SYMDMP option program) 

subroutine 56 
CARDINDX table 
contents 169 
debug file location 161 
SYMDMP usage 188 
characters, moving, subroutine for 
described 26 
flowchart 8 3 
checkpoint subroutine 
described 34 
flowchart 90 
class test subroutine described 29-30 
Close Debug File Routine (ILBDDBG8) 
described 47 
flowchart 134 
CLOSE statement subroutines 
UNIT (direct access) 

absolute address 40,113 
relative track 40,114 
VSAM 

described 4 3 
flowchart 125 
WITH LOCK 

described 35 

flowchart 93 

COBOL object program 184 

COBOL object-time library summarized 9 

common data area (SYMDMP 

program) 48,159-160 
compare subroutines (see test and compare 
subroutines) 



Index 197 



Licensed Material - Property of IBM 



constant, figurative 

compare subroutine described 3 

MOVE subroutine described 27 
core image library, subroutines stored 

in 9 
COUNT chain 

described 18 

location 179 

summarized 60 

use in operations 77 
count common area 

described 180-181 

location 179 
COUNT option, code for in ILBDDBGO 

linkage 45 
COUNT option subroutines (see object-time 
execution statistics subroutines) 

described 17 9 

location 18 4 

summarized 58 

use in operations 78 
count-block described 58-59,195 
CURRENT-DATE subroutine described 31 



DA subroutines (see direct access data 

management subroutines) 
data, finding location of 187 
data areas 159-177 

data management subroutines (see under 
direct access data management subroutines, 
general data management subroutines, 
indexed sequential access data management 
subroutines, sequential access data 
management subroutines, or VSAM data 
management subroutines) 
data .manipulation subroutines (cited here 
by function; otherwise, use individual 
subroutine names for reference elsewhere) 
alphanumeric edit 27 
dummy sort 2 6 
GO TO DEPENDING ON 29 
MERGE function 

described 18-26 
flowchart 8 0-82 
linkage 26 
parameter list 21 
MOVE figurative constant 27 
MOVE to right-justified field 

(System/370) 27 
moving characters 
described 26 
flowchart 83 
moving unusual operands 26 
SEARCH function 28 
segmentation 

described 28-29 
flowchart 84 
SORT function 

described 17-26 
flowchart 80-82 
GIVING option 17-18 
INPUT PROCEDURE 17-18 

linkage 25 

OUTPUT PROCEDURE 17-18 



parameter list 20 
RELEASE statement 18 
USING option 17 
transform function 27 
DATADIR table 
contents 171 
debug file location 161 
described 49 

use by SYMDMP option subroutines 54,188 
DATATAB table 

contents 165-168 
debug file location 161 
use by SYMDMP option subroutines 188 
DBG0COM (debug common area) 48,159-160 
debug common area 48,159-160 
debug control routines 
described 45-47 
flowcharts 129-134 
debug file 

contents 161 
described 49 

relationship to object-time tables 
(diagrams) 73-75 
debug options (for general references, see 
diagnostic aid subroutines; for detailed 
references, see flow trace option 
subroutine, statement number option 
subroutine, or SYMDMP option program) 
debug text defined 195 

debugging (object-time) subroutines (for 
general references, see diagnostic aid 
subroutines; for detailed references, see 
flow trace option subroutine, statement 
number option subroutine, or SYMDMP option 
program) 
decimal division subroutine 16 
decimal fixed-point exponentiation 

subroutine 16 
decimal multiplication subroutine 16 
diagnostic aid subroutines 

abnormal termination: flow of 

control 67 
calling dependencies 68-71 
control routines 
described 45-47 
flowcharts 129-134 
diagnostic aid for 188 
diagrams 65-76 

flow trace option (for more detailed 
references, see flow trace option 
subroutine) 
described 47 
flowchart 137 
initialization flow of control 66 
statement number option (for more 
detailed references, see statement 
number option subroutine) 
described 47 
flowchart 135 
summarized 45,47 

symbolic dump option see SYMDMP option 
program) 
diagnostic aids 

debugging subroutines 187-188 
program operations 184-187 
summarized 183 
diagnostic messages 
execution-time 184 
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preparation subroutine 
described 35 
flowchart 96 
printing subroutine 
described 36 
flowchart 97 
SYMDMP message subroutine 
described 3 6 
flowchart 98 
direct access data management subroutines 
(listed here by function; otherwise, use 
individual subroutine name for reference 
elsewhere) 

CLOSE UNIT statement 

absolute address 40,113 
relative track 40,114 
error 

described 42 
flowchart 123 
extent processing 
described 41 
flowchart 115 
increase SEEK address 
described 42 
flowchart 120 
READ, WRITE statements 

absolute address 42,121 
relative track 42,122 
RZERO record 

absolute address 41,118 
relative track 42,119 
sequential READ 

absolute address 41,116 
relative track 41,117 
DISPLAY statement subroutine 
described 32 
flowchart 8 5 
division, decimal, subroutine for 

described 16 
DMRCNTRL (SYMDMP option program) subroutine 
described 55 
flowchart 149-150 
DOS/VS COBOL program, subroutine for 

linkage to 31 
DTF, finding location of 186 
dummy Sort subroutine described 26 
dump contents (dynamic) 47 
dump control subroutines (SYMDMP option) 
described 55-56 
flowchart 149-150 
dump formatting subroutines (SYMDMP option) 
described 56 
flowchart 151-152 
DUMP1 (SYMDMP option program) 
described 56 
flowchart 151 
DUMP2 (SYMDMP option program) 
described 56 
flowchart 152 
dynamic dump contents 47 
dynamic dump (diagnostic aid) subroutine 
described 46 
flowchart 133 
DYNAMTAB table 
contents 172 
debug file location 161 
defined 49 



edit, alphanumeric, subroutine for 27 
environmental and physical characteristics 

of COBOL object-time library 9 
ERASE option (SORT-OPTION parameter) 

described 24 
error-detecting subroutines 
direct access 
described 42 
flowchart 123 
indexed sequential access 
described 39-40 
flowchart 111 
sequential access 
described 38 
flowchart 104 
error messages (see diagnostic messages) 
Error subroutine (SYMDMP option 

program) 54 
execution statistics (see object-time 

execution statistics subroutines) 
execution-time debugging (for general 
references, see diagnostic aid 
subroutines; for detailed references, see 
flow trace option subroutine, statement 
number option subroutine, or SYMDMP option 
subroutine) 
execution- time messages 18 4 
exponentiation subroutines 
decimal fixed-point 16 
floating-point 17 
extent processing (DA) subroutine 
described 41 
flowchart 115 
external decimal to binary, conversion 

subroutine described 14 
external decimal to internal floating-point 

conversion subroutine 13 
external floating-point to internal 
floating-point conversion subroutine 16 



FCB (VSAM file control block) 

contents 177-178 
FIB (VSAM file information block) 

contents 175-176 
figurative constant 

compare subroutine 30 

MOVE subroutine 27 
file control block (VSAM) contents 177-178 
file information block (VSAM) 

contents 175-176 
FINDLOCS subroutine (SYMDMP option program) 

described 55 

flowchart 145 
FINDNAMS subroutine (SYMDMP option program) 

described 54-55 

flowchart 144 
floating-point exponentiation 

subroutines 17 
flow trace option subroutine 

description 48 

flowchart 137 

function summarized 9 
flowchart label directory 18 9 
fragment defined 195 
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general data management subroutines (listed 
here by function; otherwise, use 
individual subroutine name for reference 
elsewhere) 

ACCEPT statement 

described 34 

flowchart 8 9 
checkpoint 

described 34 

flowchart 90 
CLOSE WITH LOCK statement 

described 3 5 

flowchart 93 
DISPLAY statement 

described 32 

flowchart 85 
error message 

preparation 3 5,96 

printing 36,97 
nonstandard labels 

described 3 5 

flowchart 95 
OPEN ACCEPT file 

described 35 

flowchart 91 
OPEN DISPLAY file 

described 35 

flowchart 92 
optimizer DISPLAY 

described 33 

flowchart 87 
SYMDMP error message 

described 36 

flowchart 98 
user standard labels 

described 35 

flowchart 94 
3886 Optical Character Reader 

described 36 

flowchart 9 9 
GIVING option of SORT statement, effect of 

on Sort/Merge operation 17,26 
glossary 195 

GN (generated procedure name) defined 195 
GO TO DEPENDING ON subroutine described 29 



HEXDUMP subroutine (SYMDMP option program) 
described 55 



ILBDABXO (SA STIXIT macro instruction) 
subroutine 

described 39 
flowchart 107 
ILBDACPO (ACCEPT statement) subroutine 
described 34 
flowchart 89 
ILBDADRO (SYMDMP address test) 

subroutine 31 
ILBDANEO (alphanumeric edit) subroutine 27 
ILBDANFO (MOVE figurative constant) 
subroutine 27 



ILBDASYO (OPEN ACCEPT file) subroutine 

described 35 

flowchart 91 
ILBDBIDO (binary to internal decimal 

conversion) subroutine 12 
ILBDBIEO (binary to external decimal 

conversion) subroutine 12 
ILBDBIIO (binary to internal floating-point 

conversion) subroutine 13 
ILBDCKPO (checkpoint) subroutine 

described 34 

flowchart 90 
ILBDCLKO (CLOSE WITH LOCK statement) 
subroutine 

described 35 

flowchart 93 
ILBDCLSO (class test) subroutine 29-30 
ILBDCRDO (DA close unit with absolute 
addressing) subroutine 

described 40 

flowchart 113 
ILBDCT10 (COUNT frequency subroutine) 

described 59 

flowchart 156 
. operation diagram 77 
ILBDDAE0 (DA error) subroutine 

described 42 

flowchart 123 
ILBDDBG0 (diagnostic aid TEST) subroutine 

described 45 

flowchart 129 
ILBDDBG1 (diagnostic aid PRINT) subroutine 

described 45-46 

flowchart 131 
ILBDDBG2 (diagnostic aid STIXIT) subroutine 

described 46 

flowchart 132 
ILBDDBG3 (diagnostic aid TGT address) 
subroutine 

described 46 

flowchart 132 
ILBDDBG4 (diagnostic aid save register 14) 
subroutine 

described 46 

flowchart 132 
ILBDDBG5 (diagnostic aid dynamic dump) 
subroutine 

described 46 

flowchart 133 
ILBDDBG6 (diagnostic aid Range) subroutine 

described 47 

flowchart 134 
ILBDDBG7 (debug common area) 48,159-160 
ILBDDBG8 (close debug file) subroutine 

described 47 

flowchart 134 
ILBDDCI0 (internal and external decimal to 
internal floating-point conversion) 
subroutine 13 
ILBDDIO0 (DA READ and WRITE) subroutine 

described 42 

flowchart 121 
ILBDDSP0 (DISPLAY statement) subroutine 

described 32 

flowchart 85 
ILBDDSR0 (DA sequential read with absolute 
addressing) subroutine 

described 41 
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flowchart 116 
ILBDDSSO (optimizer DISPLAY) subroutine 
described 33 
flowchart 87 
ILBDDUMO (dummy Sort) subroutine 26 
ILBDEFLO (external floating-point to 
internal floating-point conversion) 
subroutine 16 
ILBDFLWO (diagnostic aid flow trace) 
subroutine 

described 48 
flowchart 137 
ILBDFMTO (DA RZERO record for absolute 
addressing) subroutine 
described 41 
flowchart 118 
ILBDFPWO (floating-point exponentiation to 

noninteger exponent) subroutine 17 
ILBDGDOO (GO TO DEPENDING. ON) 

subroutine 29 
ILBDIDAO (DA increase SEEK address) 
subroutine 

described 42 
flowchart 120 
ILBDIDBO (internal and external decimal to 

binary conversion) subroutine 14 
ILBDIDRO (internal decimal to Sterling 

report conversion) subroutine 14 
ILBDIDTO (internal decimal to Sterling 

nonreport conversion) subroutine 15 
ILBDIFBO (internal floating-point to binary 

conversion) subroutine 13 
ILBDIFDO (internal floating-point to 
internal decimal conversion) 
subroutine 14 
ILBDIMLO (SA tape pointer) subroutine 
described 38 
flowchart 105 
ILBDINTO (VSAM initialization) subroutine 
described 43 
flowchart 124 
ILBDISEO (ISAM error) subroutine 
described 39-40 
flowchart 111 
ILBDISMO (ISAM READ and WRITE) subroutine 
described 39 
flowchart 110 
ILBDIVLO (compare figurative constant) 

subroutine described 30 
ILBDMFT0 (SA position multiple file tape) 
subroutine 

described 38 
flowchart 106 
ILBDMNS0 (program indicator) subroutine 

described 31 
ILBDMOV0 (moving characters) subroutine 
described 26 
flowchart 83 
ILBDMP01 (SYMDMP option routine for disk 
I/O) 

described 53 
flowchart 139 
ILBDMP02 (SYMDMP option routine for tape 
I/O) 

described 53 
flowchart 139 



ILBDMP04 (SYMDMP option PUBS table search) 
subroutine 

described 57 
flowchart 154 
ILBDMP10 (SYMDMP option initialization) 
subroutine 

described 53 
flowchart 140-141 
ILBDMP11 (SYMDMP option scan program 
control card) subroutine 
described 54 
flowchart 142 
ILBDMP12 (SYMDMP option scan line-control 
card) subroutine 
described 54 
flowchart 143 
ILBDMP13 (SYMDMP search DATADIR table) 
subroutine 

described 54 
flowchart 144 
ILBDMP14 (SYMDMP option search PROCTAB 
table) subroutine 
described 55 
flowchart 145 
ILBDMP20 (SYMDMP option Pass 2 control) 
subroutine 

described 55 
flowchart 146-147 
ILBDMP21 (SYMDMP option Pass 2 
initialization) subroutine 
described 55 
flowchart 148 
ILBDMP22 (SYMDMP option dump control) 
subroutine 

described 55-56 
flowchart 149-150 
ILBDMP23 (SYMDMP option dump formatting) 
subroutine 

described 56 
flowchart 151 
ILBDMP24 (SYMDMP option dump formatting) 
subroutine 

described 56 
flowchart 152 
ILBDMP25 (SYMDMP option statement number 
message) subroutine 
described 57 
flowchart 153 
ILBDMRG0 (MERGE) subroutine 
described 18-26 
flowchart 80-82 
GIVING option, effect of 26 
linkage to 26 

logic flow for merging (diagram) 64 
parameters 20-25 
ILBDMVE0 (SA test tape file) subroutine 
described 38 
flowchart 107 
ILBDMXU0 (decimal multiplication) 

subroutine 16 
ILBDNSL0 (nonstandard labels) subroutine 
described 35 
flowchart 95 
ILBDOCR0 (3886 Optical Character Reader) 
subroutine 

described 36 
flowchart 99 
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ILBDOSYO (OPEN DISPLAY file) subroutine 

described 35 

flowchart 9 2 
ILBDGPWO (floating-point exponentiation to 

integer exponent) subroutine 17 
ILBDRCRO (DA close unit for relative track) 
subroutine 

described 4 

flowchart 114 
ILBDRDIO (DA READ and WRITE with relative 
track) subroutine 

described 42 

flowchart 122 
ILBDRDSO (DA sequential READ for relative 
track) subroutine 

described 41 

flowchart 117 
ILBDRFMO (DA RZERO record with relative 
track) subroutine 

described 41 

flowchart 119 
ILBDSAEO (SA error) subroutine 

described 38 

flowchart 104 
ILBDSCHO (SEARCH) subroutine 28 
ILBDSEMO (segmentation) subroutine 

described 28-29 

flowchart 8 4 
ILBDSETO (linkage) subroutine 31 
ILBDSMVO (MOVE to right- justified field for 

System/370) subroutine 27 
ILBDSPAO (SA printer spacing) subroutine 

described 37 

flowchart 10 0-102 
ILBDSRT0 (SORT) subroutine 

described 17-26 

flowchart 80-82 

GIVING option and 17,2 6 

INPUT PROCEDURE and 17-18 

linkage 25 

logic flow 

merging 64 
sorting 63 

OUTPUT PROCEDURE and 17-18 

parameters 20-25 

RELEASE statement and 18 

USING option card and 17 
ILBDSSN0 (separately signed numeric ASCII 
support) subroutine 

described 44 

flowchart 128 
ILBDSTI0 (Sterling nonreport to internal 

decimal conversion) subroutine 15 
ILBDSTN0 (statement number option) 
subroutine 

described 47 

flowchart 135 
ILBDSTR0 (ISAM START) subroutine 

described 40 

flowchart 112 
ILBDTC00 (COUNT initialization subroutine) 

calling dependencies 68,69 

described 59 

flowchart 15 5 

operation diagrams 
overall 77 
relationship to debug routines 66 



ILBDTC2 (COUNT termination subroutine) 
calling dependencies 68,69 
described 60 
flowchart 157 
operation diagrams 
overall 77 

relationship to debug routines 67 
ILBDTC3 (COUNT print subroutine) 
calling dependencies 6 9,70 
described 60 
flowchart 158 
operation diagrams 
overall 77 

relationship to debug routines 67 
usage of tables 78 
ILBDTEF0 (all numeric forms to external 

floating-point conversion) subroutine 15 
ILBDTOD0 (TIME- OF- DAY and CURRENT- DATE) 

subroutine 31 
ILBDUPS0 (UPSI) subroutine 30-31 
ILBDUSL0 (user standard labels) subroutine 
described 35 
flowchart 94 
ILBDVBL0 (SA variable- length record output) 
subroutine 

described 38 
flowchart 103 
ILBDVCO0 (compare) subroutine 30 
ILBDVIO0 (VSAM action request) subroutine 
described 43-44 
flowchart 127 
ILBDVMO0 (move with unusual operands) 

subroutine 26 
ILBDVOC0 (VSAM open and close) subroutine 
described 43 
flowchart 125 
ILBDVTR0 (transform) subroutine 27 
ILBDXDI0 (decimal division) subroutine 16 
ILBDXTN0 (DA extent processing) subroutine 
described 41 
flowchart 115 
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for reference elsewhere) 
error 

described 39-40 
flowchart 111 
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described 3 9 
flowchart 110 
START 

described 40 
flowchart 112 
indicator, program, subroutine for 31 
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conversion subroutine 14 
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conversion subroutine 12 
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conversion subroutine 14 
IODISK (SYMDMP option) subroutine 
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flowchart 139 
IOTAPE (SYMDMP option) subroutine 
described 53 
flowchart 139 
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MERGE function subroutines 
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System/370 subroutine 27 
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described 26 

flowchart 83 
multiple file tape, subroutine for 
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described 38 

flowchart 106 
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node described 58,195 
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described 180 

location 179 

summarized 60 
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trace subroutine) 
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conversion subroutine described 15 
NXTENTRY (SYMDMP option) subroutine 56 



object module defined 195 
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phase map 187 
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subroutines 

calling dependencies 68-71 
count frequency subroutine (ILBDCT10) 
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flowchart 156 
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flowchart 157 
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debug file location 161 
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flowchart 92 
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flowchart 125 
Optical Character Reader (3886) subroutine 
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function summarized 4 8 

modules listed 5 
Pass 2 (SYMDMP option program) 

control processing 
described 55 
flowcharts 146-147 
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described 45-46 

flowchart 131 
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debug file location 161 
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described 24 
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subroutine 
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SCAND (SYMDMP option program) subroutine 

described 54 

flowchart 143 
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SCANP (SYMDMP option program) subroutine 
described 54 
flowchart 142 
SEARCH subroutine described 28 
secondary base locator (SBL) defined 196 
section defined 196 
SEEK statement: DA increase address 
subroutine 

described 42 
flowchart 120 
SEGINDX table 
contents 17 
debug file location 161 
SEGINIT (SYMDMP option program) subroutine 
described 55 
flowchart 148 
segment defined 196 
segmentation defined 196 
segmentation subroutine 
described 28-29 
flowchart 8 4 
separately signed numeric subroutine (ASCII 
support) 

described 44 
flowchart 128 
sequential access data management 
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otherwise,, use individual subroutine name 
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error 

described 38 
flowchart 104 
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described 38 
flowchart 106 
printer spacing 
described 37 
flowchart 100-102 
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described 39 
flowchart 109 
STXIT macro instruction 
described 3 9 
flowchart 108 
tape pointer 

described 38 
flowchart 105 
test tape file 
described 38 
flowchart 107 
variable-length record output 
described 38 
flowchart 103 
SORT, dummy, subroutine 26 
SORT function subroutine (see ILBDSRT0 

(SORT) subroutine) 
SORTWK option (SORT-OPTION parameter) 

described 24 
SORT-OPTION parameters 
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MERGE 21 
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Sort/Merge program (system) 
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described 35 
flowchart 94 
statement number option subroutines 
STATE Option 

action summarized 9 
described 47 
flowchart 135 
SYMDMP option message 
described 57 
flowchart 153 
START statement (ISAM) subroutine 
described 40 
flowchart 112 
Sterling nonreport to internal decimal 

conversion subroutine 15 
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object-time debugging 
described 46 
flowchart 132 
sequential access data management 
described 3 9 
flowchart 108 
storage layout of COBOL object program 186 
STORAGE option (SORT-OPTION parameter) 

described 23 
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SYMDMP option program) 
SYMCNTRL (SYMDMP option program) subroutine 
described 55 
flowchart 146-147 
SYMDMP address test subroutine 

described 31 
SYMDMP option program (subroutines are 
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abnormal termination 52-53 
action summarized 9 
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contents 16 9 
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control card processing 
cards described 49 
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number processing 75 
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use 54,188 
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described 4 9 
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dump control subroutine 
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flowchart 149-150 
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described 49 
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described 36 
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described 53-54 

flowcharts 140-141 
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described 55 
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described 57 
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